#!perl -p
s/-?\d+/--$-?$&:($-=$&,6)/ge;s/6/💩/g