sub b1{M1E3D500C100L50X10V5I1=~$_;$'}