Help for this page

Select Code to Download


  1. or download this
    use strict;

...
end

print $s =~ /(hubba\d)/gm;
  2. or download this
    use strict;

...
$s =~ /bubba/gm;

print $s =~ /(hubba\d)/gm;
  3. or download this
    use strict;

...
$s =~ /bubba/gm;
$s =~ /no match/gm;
print $s =~ /(hubba\d)/gm;