Select Code to Download

foreach (split "\n", $web) {
    if (m/(log_id\=(\d*)\&.*?Label Defect)/m) {
        #... etc
    }
}

{
    open my $foo, '<', \$web or die $!;
    while (<$foo>) {
...
        }
    }
}