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