if (($last =~ /\S/) && ($out =~/$last(.*)/)) {
         $out = $1
      }