use strict;
use warnings;

my $x = 'Hello World';
$x =~ s/World/Web/;
$y = "I want to say '$x' but \$y not localised";

print "$y\n";