http://qs321.pair.com?node_id=755908


in reply to Re^2: dumb regex question
in thread dumb regex question

if (m{"(/[^"]+)"|(/\S+)}) {
   my $match = defined $1 ? $1 : $2;
   ...
}

[download]
Or whatever's appropriate instead of \S.

Update: Fixed slashes

In Section Seekers of Perl Wisdom