my $sfreq=<STDIN>;
     #014.262.00 
     my ($Mhz,$Khz,$hz)=split(/\./,$sfreq);
     my $h1=substr($Mhz,0,2);
        #h1=pack('H*',$h1);
     my $h2=substr($Mhz,2,1).substr($Khz,0,1);
        #$h2=pack('H*',$h2);
     my $h3=substr($Khz,1,2);
        #$h3=pack('H*',$h3);
     my $h4=substr($hz,0,2);
     my $hfreq="$h1$h2$h3$h4";