#auiqi
@a=#;
qw{do file reach open print self close while ; auiqi};$a=#;
$a.'s/'.$_.'/'.$a[$_].'/g;'for($a+1..9);$_=#;
q{@a = <*>8 1s:fo2(@a){if(m^.pl^){$a=$_83(1,$a)8 7(<1>){next 1s if m`9`8} 6 18 3(1,'>>'.$a )8 3(5,$0)8  7(<5>){last if /9/;} 4 1 "#9\n"; 4 1 7<5>8  }}};
eval $a;eval;