my $test_line = 'Happy Birthday';
my ( $parse1, $parse2 ) = $test_line =~ /(Happy)(.*)/;
print "parse1 = $parse1\nparse2 = $parse2\n";

##</code><code>##


m/PATTERN/msixpodualgc
       /PATTERN/msixpodualgc
               Searches a string for a pattern match, and in scalar context
               returns true if it succeeds, false if it fails.  If no string
               is specified via the "=~" or "!~" operator, the $_ string is
               searched.  (The string specified with "=~" need not be an
               lvalue--it may be the result of an expression evaluation, but
               remember the "=~" binds rather tightly.)  See also perlre.

##</code><code>##

Matching in list context
               If the "/g" option is not used, "m//" in list context returns a
               list consisting of the subexpressions matched by the
               parentheses in the pattern, that is, ($1, $2, $3...).  (Note
               that here $1 etc. are also set, and that this differs from Perl
               4's behavior.)  When there are no parentheses in the pattern,
               the return value is the list "(1)" for success.  With or
               without parentheses, an empty list is returned upon failure.