#!/usr/bin/perl

$str='.YZ[\]^_PQRSTUVWHIJKLMNO@ABCDEFGxyz{|}~.pqrstuvwhijklmno`abcdefg................................89:;<=>?01234567()*+,-./ !"#$%&\'................................................................................................................................';





while(<>){

  $s="";

  if(/^0130 /){

    GETIT: { do {

      s/^0130  00 00 // if /^0130/;

      s/^[[:xdigit:]]{4}  //;

      s/   .*$//ms;   

      $s=$s." ".$_;

      last GETIT if ($s =~ / 00/);

    }while (<>)  };

    $s=~s/ 00.*$//ms;

    $s=~s/ ([[:xdigit:]]{2}) ([[:xdigit:]]{2})/ substr($str,(hex($1)),1).substr($str,(hex($2)),1) /ige;

    $s=~s/ ([[:xdigit:]]{2})/ chr(hex($1)) /ige;

    print ":$s:\n";

  }

}