$ perl -le'
$_ = q[11111xxx11xxxx111111xx11x1xxxx];
print;
s/(1+)/@{[($l=$1)=~y|1|1|]}/g;
print;
'
11111xxx11xxxx111111xx11x1xxxx
5xxx2xxxx6xx2x1xxxx
:-)
John
John, That worked perfectly! Thanks!!! Cheers, Eric -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
