Some expressions are written on webpages so often that I find them very annoying. As I use lynx to browse, I managed to get rid of stupid phrases, or, better, have them replaced on the fly by something that doesn't scratch my eyes: 
lynx | perl -p -e 'BEGIN{$/=" ";$|=1};s/loft|story/beeep/gio'

[download]
(Here the annoying bit is formed with the name of a stupid french tv show, which all the french media can't stop talking about. To test this, I suggest you go to google, and type 'loft story' in the search field.)

There a few problems remaining, though. Things get displayed on the screen only when $/ is reached, so the last words often don't appear; and you might need a few ^L from time to time to refresh the screen.

I'd be glad to hear about any improvements you dear monks can make to this, still keeping it on one tiny single line.

Blop

Replies are listed 'Best First'.
oh, I wrote this, btw
by Blop (Monk) on Jul 05, 2001 at 16:51 UTC
    stupid! Sorry, this was my first post, and I was 100% sure I was logged in... Now you know who to blame if you don't like it. Blop
[reply]
      Hey, It works fine..
      Any idea, how I can do it with Internet Explorer??
[reply]
        Probably by writing a censoring, filtering proxy in Perl... which can be quite tricky (at least for me).

        Greetz
        Beatnik
        ... Quidquid perl dictum sit, altum viditur.
[reply]
      Try $| "to make your pipes piping hot."

      —John

[reply]
[d/l]

Back to Cool Uses for Perl