open(FILE,'41084109.udp');
$/=\4;
$a = <FILE>;
$b = <FILE>;

##</code><code>##

open(FILE,'41084109.udp');
$/=\4;
while(<FILE>) {
     #count the occuarnce of the 4 digits
     $count{$_}++;
}