Could this one work?

if ($string =~ /(\w{3,})$/ ) {

  print "\n\$1\n";

}elsif( $string =~ /(\w+)\s(\w{1,2})$/  ) {
#}elsif( $string =~ /(\w{1})\s(\w+)\s(\w{1,2})$/) { # or this one usin
+g $2

  print "\n$1\n";
      
}
[download]