#?<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R)P```
eval<DATA>;sub'_{$_=unpack+u=>$_=>until/u(?{eval})/}
   __DATA__
seek+DATA=>$%,%$;_%;for<DATA>=~'.(.*.).'