Select Code to Download

$str = " abc defgh ij klmnop " ; # case 1
$str = " abc defgh ij klmnop qrst uvwxyz" ; # case 2
$str = "abc defgh ij" ; #case 3

($str) = ($str =~ /^\s([\w+\s{0,}]{1,})\s{0,}$/) ; #case 2/3