Help for this page

Select Code to Download


  1. or download this
    my $str = "The quick brown fox jumps over the lazy dog";
my $count =  () = $str =~ m/(the)/ig;
print $count;
  2. or download this
    my $str = "There are three theatres in the town";
my $count =  () = $str =~ m/(\bthe\b)/ig;
print $count;
  3. or download this
    my $str = "The quick brown fox jumps over the lazy dog";
my $count =  () = $str =~ m/(\bthe\b)/ig;
print $count;