$subject = '<sm.th.>';
$regex   = {
  '<', '&lt',
  '>', '&gt'
};
for( keys %$reg ){
  $subject =~ s/$_/$reg->{$_}/g
}