Select Code to Download

$test =~ /^foo /;
$test =~ / bar$/;

@compare = "/^foo /", "/ bar$/";
$i=0
...
print $test;
$i++
}