sub f{vec($a,pop,8)=pop}$==<>/2;for$e('f=-_,47;f=_,92',$x='f=*2,f=,f 124',' f_*2<=?=*2-_:=-_,47;f=_,f_,92',$x,'f_-1,92;f=*2+1-_,47'){$a=$".$"x2x$=,eval$e=~s/_|=/+${$&}/gr,print$a.$/for$e^W..$=}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).