#!perl -0p
s//2/;s/ /+5/;s/ /+2/?s/
/->4/:s/
/->2/+s/5//