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

print "\n $mystring\n";