Select Code to Download

    m|/sorry/| && ban(split ' ', $_);

# ./script.pl foo bar baz

sub ban {
    my $line = shift;
...
    my ($proxy) = $line =~ m| - \S+/(proxy_\S+)|;
    my @cutoff = grep /$proxy/, @cfg;
    ...