#!/usr/bin/perl -w

my %userInfo;

$userInfo{fname} = '__fname__';
$userInfo{lname} = '__lname__';
$userInfo{email} = '__fullFrom__ <__email__>';

my $fname = 'John';
my $lname = 'Doe';
my $fullFrom = join(' ', $fname, $lname);
my $email = 'john@doe.com';

foreach my $key (keys %userInfo) {
    $userInfo{$key} =~ s/__(.+?)__/\$$1/g;
    print $userInfo{$key}, "\n";
}

##</code><code>##

#!/usr/bin/perl -w

my %userInfo;

$userInfo{fname} = '__fname__';
$userInfo{lname} = '__lname__';
$userInfo{email} = '__fullFrom__ <__email__>';

my $fname = 'John';
my $lname = 'Doe';
my $fullFrom = join(' ', $fname, $lname);
my $email = 'john@doe.com';

foreach my $key (keys %userInfo) {
    $userInfo{$key} =~ s/__(.+?)__/$$1/g;
    print $userInfo{$key}, "\n";
}