http://www.perlmonks.org?node_id=359514
Public ScratchpadDownload, Select Code To D/L
My recursive sigs 
sub skth{ print substr($_[0], -1);
               skth( substr($_[0], 0, length($_[0])-1))
                    if length $_[0] > 1 }
skth('gro.alubaf@yehaf');

[download]

OO suggestions: Anonymous Subroutine Objects

OO node 297205

CGI-Session advice 299647

Getting rid of MSWord apostrophes 324879

Testing