#!/usr/bin/perl


$inFile = "rtrates.rtrates";
$outFile = "rtrates.out";

open (IN, "<$inFile");
open (OUT, ">$outFile");

foreach $data (<IN>){


    $region = substr($data, 0, 2);
    $fisyy = substr($data, 2, 4);
    
    
    $rates = undef;

    for ($count=7;$count<length($data);$count++){
    
        $tempChar = substr($data, $count, 1);
        $rates = $rates . unpack("H", $tempChar);
    
    }
    

    
    print OUT "$region,$fisyy,$rates\n";
    
    
  
}