use strict;

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

$s =~ /bubba/gm;

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