Select Code to Download

$text = 'this has a $foo in it and a $bar';
$text =~ s/(\$\w+)/$1/eeg;   # needs /ee, not /e

#!/usr/bin/perl -wT
use strict;
...
T1 /g   : this has a $foo in it and a $bar
T2 /ge  : this has a $foo in it and a $bar
T3 /gee : this has a switch in it and a button