Select Code to Download

return 0 if ( () = $line =~ /\Q$base/g ) >= $limit;

return 0 if ( $line =~ s/\Q$base//g ) >= $limit;