• + 0 comments

    perl

    while(<>){
        chomp;
        next if $. == 1;
        /^[_\.]\d+[a-zA-Z]*_?$/ ? print "VALID\n" : print "INVALID\n";