sub sk{ return unless $in = shift;
        $in =~ s!(.)$!!; print $1; sk($in)}
sk("gro.alubaf@yehaf");