perl normal success

open(MYFILE,"55555555555");
@test1= <MYFILE>;
$num=@test1;

$compont="";
$s="";
$count=0;

for($n=1; $n<=$num; $n++)
{
        $item=$test1[$n];
        chop $item;

        if($item=~/^</)
        {
                $compont=$item;
        }else{
                if ($item =~ /#[0-9]+/)
                {
                        $expr=$item;
                        $pos=index($expr,"#");
                        $s=substr($expr,$pos,7);

                        print "$compont/t/t$1/n" if $compont=~ /([a-zA-Z0-9-]+[a-zA-Z]+)/;
                        #print "$compont/t/t$1/n" if $compont=~ /([a-zA-Z0-9-]+[a-zA-Z]+/d?)/;
                        #print "$compont/t/t$1/n" if $compont=~ /([a-zA-Z.]+[a-zA-Z0-9-]+[a-zA-Z]+/d?)/;
                        $count++;
                }
        }
}

print "the count is :$count/n";