Help for this page

Select Code to Download


  1. or download this
    map { my $t = $2 || $3; print "<$t\n"; } 
  m/('(.*?)'|([^']*?))($|,\s*)/g;