#!/usr/bin/perl

$foo = "foo";

print "1: $ $ $ foo\n";
print "2: $ $$ foo\n";
print "3: $ $$foo\n";
print "4: $$$foo\n";