Select Code to Download

>perl -wMstrict -le
"my $s = 'age 23 name john';
...
 print qq{@an};
"
23 john

>perl -wMstrict -le
"my $s = 'age 23 name john';
...
"
Use of uninitialized value in join or string at -e line 1.
:john::

>perl -wMstrict -le
"my $s = 'age 23 name john';
...
 print qq{:$captured:};
"
:john:UNdefined: