#!/usr/bin/perl -w open FILE, "c:\\html\\test.html" || die "can't open file"; @text = ; $text = join( "", @text ); close FILE; #print $text; $text =~ s/>[>+]//g; # < -- Added this line $text =~ s/\<(.*?)\>//sg; print $text;