$ perl -Mstrict -Mwarnings -E '
my $s = <<end;
hubba1
bubba
hubba2
end

$s =~ /bubba/gm;                  
say pos($s);
print $s =~ /(hubba\d)/gm;
'
12
hubba2