#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Text::Unidecode;

my $encode = unidecode("What\x{2019}s up with the water ??");
print $encode . "\n";

__END__
$ perl test.pl
What's up with the water ??