Help for this page

Select Code to Download

Select or download this

my $line = "ABABABAB";
my $limit = 3;
...
say "Yes 2" if eval "\$line =~ tr/$base/$base/" >= $limit;
__END__
Yes 2