#!/usr/bin/perl
use strict;
use warnings;

my $s = << '__STRING__';
hubba1
bubba
hubba2
__STRING__

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