#!/usr/bin/perl
@cand (63, 66, 69, 72, 73, 74, 95, 96, 98, 134, 135, 137, 138, 139, 140, 159, 162, 172, 173, 175, 177, 178, 197, 198, 201, 210, 225, 232, 237, 240, 243, 246, 247);
open (<CONTACT0>, "Contactmap00_0.txt");
while (<CONTACT0>) {
foreach $c (@cand){
    foreach $_ {
    @line = split (//, $_);
    if $c = $line[2] {
        if $line[4] >= 133 {
            if $line[4] <= 298 {
                if $line[6] != ['Asterisk' 'Colon']{
                    print $_ "\n"; }
                else print "Mismatch at level Type \n";}
            else print "Too large for range\n";}
        else print "To small for range \n";}
    else print "Not a match to candidates\n";}
    }
  }