Help for this page

Select Code to Download

Select or download this

#!perl
$_ = "foo";
@chars1 = split //;
...
/f/g;
@chars3 = /./gs;
print "@chars1\n@chars2\n@chars3\n";