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

##</code><code>##

parse = Happy

##</code><code>##

$parse = $test_line =~/(Happy).*/;

##</code><code>##

parse = 1

##</code><code>##

$var = $line =~ /pattern/;