@chars = /./gs; grabs characters starting at pos(), and resets pos() afterwards. For example: #!perl $_ = "foo"; @chars1 = split //; @chars2 = /./gs; /f/g; @chars3 = /./gs; print "@chars1\n@chars2\n@chars3\n"; [download]