use strict;

my $s = <<end;
hubba1
bubba
hubba2
end

print $s =~ /(hubba\d)/gm;

##</code><code>##

use strict;

my $s = <<end;
hubba1
bubba
hubba2
end

$s =~ /bubba/gm;

print $s =~ /(hubba\d)/gm;

##</code><code>##

use strict;

my $s = <<end;
hubba1
bubba
hubba2
end

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