$str =~ s/ (?=[^ ]*$)//;
とか