#!perl -ln055 print s///g/2if/ \* /