my $test = "Hello world!";
print "Matched\n" if $test =~ /(Hello)/;
print "\$1 = $1\n";
print "Matched\n" if $test =~ /world/;
print "\$1 = $1\n";

__DATA__
Matched
$1 = Hello
Matched
$1 =