#!/usr/bin/perl -w

open FILE, "c:\\html\\vb\\index.html" || die "can't open file";

@text = <FILE>;
$text = join( "", @text );

close FILE;

#print $text;

$text =~ s/(\<(.*?)\>)//sg;

print $text;