- or download this
my $parse = ' ';
my $test_line = 'Happy Birthday';
$test_line =~/(Happy).*/;
$parse = $1;
print "parse = $parse\n";
- or download this
parse = Happy
- or download this
$parse = $test_line =~/(Happy).*/;
- or download this
parse = 1
- or download this
$var = $line =~ /pattern/;