#!/usr/bin/perl -w
use strict;
$/=\89;$;=<DATA>;$/=\"102";$^W=0,s>><<B>eoix;
qw(map{push @_ $_}qw/74 $;/);
B
;s!!$;='',map{$;.=''.pack("C",$_)}eval!ogiex;$_=$;;;print;
__DATA__
74 117 115 116 32 65 110 111 116 104 101 114 32 80 101 114 108 32 72 97 99 107 101 114 10
__END__