tr/// doesn't interpolate. You could use m// or s/// instead.

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

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