#!/afs/athena/contrib/perl/p

$line =~ /^"((\\.|[^\\"])+)"\s+/;