Select Code to Download

FOO=1
FOO=2
FOO=3

#! /usr/bin/perl -w 

...
}
print join(",",@list)."\n";
# prints out 1,2,3

my $dollars = 0;
my $pounds = 0;
...
                $dollars = $1;
        }
}