more useful options | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
#!/usr/bin/perl -w open (O,$0) && map {s/( {2,})/print ' ' eq$1? ' ' : chr 0x5e+ length $1/eg } <O> In reply to Pithy Japh by liverpole
|
|