#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $string = "It's";
say quotemeta $string;

__END__

$ perl test.pl
It\'s