if ($lines=~m/(<)(.+)(>)/)
    {
							$tag=$1;
							$tag2=$2;
							$tag3=$3;
							$tag2=~tr/a-z/A-Z/;
							$new=$tag.$tag2.$tag3;
	}						
	$upper=~s/(<)(.+)(>)/$new/g;