Shawn Milochik wrote:
This seems to work for me:
#!/usr/bin/perl -w
use strict;
while (<STDIN>) {
chomp;
print "Original: $_\n";
$_ =~ s/^([EMAIL PROTECTED])(@.+&\d+&)([&]{5})/$1$2$1$3/;
print "Modified: $_\n";
}
Hope it helps.
Shawn
Thanks Shawn!
That works perfectly!
I just might get finished by Monday AM.
Now I just need to figure out how it works
so I don't beat my head against the desk so much
the next time I need to do something like this.
Regards,
Dennis
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
