$str =~ s[^.{$pos1}\s*][];