$str =~ s/(.*) /\1/;