s/.$//s,print$&for(<>,$/x99)x99