my $c = chr(150); $_ =~ s/^([^{$c}]*){$c}+.*$/$1/g;