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