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 using $2

  print "\n$1\n";
      
}