#!perl -p s/if@{[' (..\w+)'x5]}/${$1^B^5}/&&redo