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