fudd.pl   [plain text]

#!/usr/bin/perl -w

# based on Google's Elmer Fudd preference setting

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::tags;
use HTTP::Proxy::BodyFilter::htmltext;
use strict;

my $proxy = HTTP::Proxy->new(@ARGV);

$proxy->push_filter(
    mime     => 'text/html',
    response => HTTP::Proxy::BodyFilter::tags->new,
    response => HTTP::Proxy::BodyFilter::htmltext->new(
        sub { y/r/w/; s/l(?=\w)/w/g }
    )
);

$proxy->start;