if ( $string =~ /\s(\S+)\s*$/) { print $1, "\n" };