Who can make this script smaller?

[William Chesters <williamc@dai.ed.ac.uk>]

William Chesters writes:
 > I think
 > 
 > perl -e 'undef$/;$_=<>;print"$&
 > "while/<A[^<]*?<\/A>/gsi'
 > 
 > is functionally equivalent at 58 chars with newline(s).  Any advance
 > on that? :-)

Arg, how embarrassing, I meant of course

perl -0e '$_=<>;print"$&
"while/<A[^<]*<\/A>/gsi'

for a nice round 50 ...
-
European Universities' Linux User Groups -- Misc list
http://humbolt.geo.uu.nl/eulug/