Select Code to Download

Use of uninitialized value $& in concatenation (.) or string at (eval 
+1) line 1, <DATA> line 1.
Use of uninitialized value $' in concatenation (.) or string at (eval 
+1) line 1, <DATA> line 1.

#!perl -w
$o = q{qq{ $& | $'}};
...
print eval $o;
__END__
 1 | 234

#!perl -w
$o = q{qq{ $& | $'}};
...
Use of uninitialized value $' in concatenation (.) or string at (eval 
+1) line 1.
  |  2 | 34