if (/\<TIER/ .. /\/TIER\>/) {
    $input =~ $your_substitution_regex;
}