Select Code to Download

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

parse = Happy

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

parse = 1

$var = $line =~ /pattern/;