Select Code to Download

#!perl -l

sub blah {
...
0
0
0

my ($var1,$var2);
($var1,$var2) = ($1,$2) if ($value1=~/something/ && $value2=~/(what)(e
+ver)/);