$mystring = ($mystring =~ / (\w{1,2}\s)(\w+)$/) ? $2 : '';
Print “JOE”;