Select Code to Download

$ perl -wl
$x = "abc";
for $z (substr($x,1,1)) { print ":$z:"; $z = "zz"; print ":$z:" }
__END__
:b:
:z:

"abc"=~/.(.)/;
for $z ($1) { print ":$z:"; "zz" =~ /.(.)/; print ":$z:" }