#!/usr/bin/perl

@a = map{[split /[a-z]+/]} split /\W+/,'179ust1.$60q3-302qr3-^88p3*&12aoth2$!19n1#@-11g4*(-21a1 90n1)252n3^%361q1^5a1,15rse1';
($a,$b,$c)=(join "",@a[0,2,4,6,8] ,join "",@a[10,12,14,16,18] ,join "",@a[1,3,5,7,9,11,13,15,17,19]);
$_=q{pack('CC',0x24,0x30)};s/$a/$b/ge;open(IN,eval eval) and seek(IN,$a[5],$c[2]);
foreach(@a){seek(IN,$_->[0],0);read(IN,$_,$_->[1]);print $_;};