if( grep( $_ =~ $item, @special ) ) {
   $trans =~ s/\$item/$newitem/g;
} else {
   $trans =~ s/$item/$newitem/g;
}