#!/usr/bin/perl

my %RULES;
open (RUL,"<","/home/stummala/a");
while (<RUL>) {
    my $line = $_;
    chomp $line;
if ( /<(.*)>/ ) {
    my $num = $1;
    $dec_num = sprintf("%d", hex($num));
    print "$dec_num\n";
}
}
close RUL;