$_ = "Sello World\n"; # think about alternative separators s'S'H's; print; # Deparse and compare the difference in the next two s=>o=>O=>o; print; s,o,O,o; print; # and now, for the mystery... sub s { ("x","y","z"); } s()[0]; print;