$ cat monk.pl 
#!/usr/bin/perl -w

use strict;

my $x = 'Dwayne Johnson';

print <<XXX;
${x}'s the Sock.
XXX

$ ./monk.pl 
Dwayne Johnson's the Sock.