$ perl use utf8; $string = "“can’t”"; $string =~ tr/“’”/"'"/; print $string . "\n"; __END__ "can't" $