Select Code to Download

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

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