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