#!/usr/local/bin/perl5 -w


open(FAKENAME, "mb01.htm");
open(MYNEWFILE, ">testing.htm");

while(<FAKENAME>) {

$line = $_;

if($line =~ m/([A-Za-z]*)/) {

$thelines = $1;

print  "$thelines\n";

	}

}