Many thanks to all of you. This is great!

These are exactly the kinds of insights that I was hoping for. It will take me some time to work them out. I'll put whatever I come up with on my scratchpad.

s-t

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