> hi
> am i going totally blind or?
> from the snip below i want to output just:
> aaa
> aaa
>
> what i get is :
> aaa
> aaa
> 333 444<END>
>
>
> why is that?
> thanks
> allan
>
Is two regexps solution good enought?
$str =~ s/.*?(aaa)/$1\n/g;
$str =~ s/(aaa)?.*?$/$1/;
Jenda
== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==
Always code as if the guy who ends up maintaining your code will be a
violent psychopath who knows where you live.
-- Rick Osborne, <[EMAIL PROTECTED]>
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
