#!/usr/bin/perl -w
use strict;

use LWP::Simple;
my $page = "http://www.idg.se";

print "content-type: text/html\n\n";

print "<base href=\"$page\">";

my $text = get  $page;


$text =~ s/([едц])/<font color=red>$1<\/font>/g;


$text =~ s/<!-- (DoubleClick|START ANNONS).*?(DoubleClick|SLUT ANNONS).*?-->//gs;

print $text;