Select Code to Download

#!/usr/bin/perl -w
$x = "123 56"; 
...
print "$x, ", pos($x), "\n";
{ local $x }
print "$x, ", pos($x), "\n";

123 56, 4
Use of uninitialized value in print at l.pl line 5.
123 56,