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

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