$mystring = ($mystring =~ /(\w{3,})$/) ? $1 : '';