1#!/usr/bin/perl -w
2
3# based on Google's Elmer Fudd preference setting
4
5use HTTP::Proxy;
6use HTTP::Proxy::BodyFilter::tags;
7use HTTP::Proxy::BodyFilter::htmltext;
8use strict;
9
10my $proxy = HTTP::Proxy->new(@ARGV);
11
12$proxy->push_filter(
13    mime     => 'text/html',
14    response => HTTP::Proxy::BodyFilter::tags->new,
15    response => HTTP::Proxy::BodyFilter::htmltext->new(
16        sub { y/r/w/; s/l(?=\w)/w/g }
17    )
18);
19
20$proxy->start;
21
22