$p='$_=$/rekcah lrep rehtona tsuj
select$q,$q,$q,print(chop)/10 while$_';

$SIG{__WARN__}=sub{$e=$_[0]=~/line/?$_[0]:$@;print"$e$/FIXING$/$/";$c=0;
$n="";$e=~/line (\d+)/s;$l=$1;if($e=~/Bare/s){for(split$/,$p){if(++$c==$
l){s#=([^"]+)$#="$1"#};$n.=$_.$/}$p=$n;}elsif($e=~/tax er/s){$c=$p=~
s#([^;])\n#$1;\n#gs}sleep 1;&r if$c};&r;sub r{$|=print$p.$/x2;eval$p}