Here's one I like... (for removing evil ctrl M's)

perl -w -i -p -e "s/\x0d//g" filename

Stephen Neu
Internet Development
Characterlink.net
(630) 323-9800 ext. 235

#!/usr/bin/perl
#JustAnotherPerlHacker
($, ,@j15)=('t','Kvt'  ,' Bop','ifs',
' Q',  'sm Ibdl'   ,'s')     ;foreach
( @j15){ tr/B-Zb-z/A-Ya-y/}print @j15
[0..2];$,=~ tr/t/e/;print @j15[3..5];



Reply via email to