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

Getting rid of MSWord apostrophes 324879

Testing

• Web 489987