Select Code to Download

$foo = qq{^snafu^|^foobar^\n};

...
         /xms;
$text_qual = $1;
$field_sep = $2;

$foo =~ m/\A(\W) # \A instead of ^ and match first non-word
          \w+\1  # Match any word char until the next \1
          (\W)   # Match following non-word
         /xms;