while ($line=~/(<\d+>)/g) {
 next if ($1 eq '<30>');
 $line=~s/$1/$fix{$1}/;
}