in reply to newbie parsing question

$TheLine =~ /"(.*?)"\s+"(.*?)"/;

[download]

In Section Seekers of Perl Wisdom