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