#!/usr/bin/perl -w
 
use strict;
 
my $name = 'Alex';
my $greeting = 'Hello $name!';
 
print $greeting;

##</code><code>##

#!/usr/bin/perl -w
 
use strict;
 
my $name = 'Alex';
my $greeting = 'Hello $name!';
 
$greeting =~ s|\$([\w_]+)|eval "\${$1}"|e;
 
print $greeting;