Help for this page

Select Code to Download

Select or download this

$s = 'fred';;
print for $s =~ /^(.)?(.)?(.)?(.)?(.)?(.)?$/;;
...
Use of uninitialized value $_ in print at (eval 10) line 1, <STDIN> li
+ne 2.

Use of uninitialized value $_ in print at (eval 10) line 1, <STDIN> li
+ne 2.