sub ban {
    my $line = shift;
    ...

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