map {/^<pets>/ .. /^<\/pets>/ ? s/dog/canine/gir : $_ } @a;