Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
s/\A"(.*?)"\z/$1/ for @r;
$, = "\n";
print @r, "\n";