Thanks all, I have something working > $data =~ s/(.*\n)(?=\1)//g; Can anyone explain the (?=\1) bit? I get the search replace.
J. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Thanks all, I have something working > $data =~ s/(.*\n)(?=\1)//g; Can anyone explain the (?=\1) bit? I get the search replace.
J. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/