Select Code to Download

>perl -wMstrict -le
"my @strings = ('x', 'xa', 'x ', 'xa ',);
...
$& 'a '  pos = 1
$& ''  pos = 3
$s 'x'