while ( <DATA> ) {
    if (/perl/) {
        s#(\W|\s+)(perl)(\W|\s+)#$1<b>$2</b>$3#i if !/<title>/;
    }
    print;
}