SV: simple global substitution

[Allan Juul]

hi again
thanks to all

i think this one from jenda is almost perfect:


$str =~ s/.*?(aaa)/$1\n/g;
$str =~ s/(aaa)?.*?$/$1/; 

----variation------

$str =~ s/.*?(a+)/$1\n/g;
$str =~ s/(a+)?.*?$/$1/; 


thanks for all the suggestions!
allan
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl