analizo_clang_feed.pl

use warnings;
use strict;

my $var;
open($var, "<", "clang_pattern");

while(<$var>) {
    if($_ =~ m/<tr><td class="SUMM_DESC">([A-Za-z\s\.]+)<\/td><td class="Q">([\d]+)<\/td>/) {
        print "okie\n";
        print "$1 \n";
        print "$2 \n";
        last;
    }
    else {
        print "nops\n";
    }
}