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