Select Code to Download

sub skth{ print substr($_[0], -1);
               skth( substr($_[0], 0, length($_[0])-1))
                    if length $_[0] > 1 }
skth('gro.alubaf@yehaf');