$ perl -le"my $f = q!a b c d ee!; print substr $f, 1+rindex $f, q! !" ee