#!/usr/bin/perl

while(<DATA>){s/\s|\n//g;
$/.=$_;}while($_=chop$/){
$,.=ord}$\=" "; while( $,
=~s/^(\d{2})(\d{2})//){if
($1!=33||$2!=33){$h.= chr
abs $1+$2} else{print $h;
$h=""}}$\="\n";print #FCO
__DATA__
!!4>1492?$%<'!!!664>14((!
!2@23C%J*)F#K@!!!.F-F/F%%