#!/usr/bin/perl -w
    use strict;
    while(<DATA>){
        s/wirey/smooth/gi if /BEGTITLE/ .. /ENDTITLE/;
        print;
    }
    __DATA__
    BEGTITLE The wirey life of 
    a wirey haired dog ENDTITLE
    BEGTXT blah 
    blah blah ENDTXT
    BEGTITLE Grooming dogs ENDTITLE
    BEGTXT Grooming a wirey haired dog is ... ENDTXT
    BEGTITLE Last wirey haired dog story ENDTITLE
    BEGTXT we don't need no steenkin' wirey haired dogs here ENDTXT