#! /usr/bin/env perl

use strict;
use warnings;

my $string = "“can’t”";

$string =~ tr/“’”/"'"/;
print $string . "\n";