my $parse = ' ';
my $test_line = 'Happy Birthday';
$test_line =~/(Happy).*/;
$parse = $1;
print "parse = $parse\n";