map {/^cat\b/ .. /^\^cat\b/ ? s/^/#/r : $_} @a;