Select Code to Download

@p = 
(
...
        do_stuff() if $f =~ $p;
    }
}

while ( $foo =~ /^abc/ && $foo =~ /abc$/ )
{
    do_stuff();
}