c:\@Work\Perl>perl -wMstrict -le
"my $line = 'Happy Birthday';
 ;;
 my $p;
 ($p) = $line =~ /(Happy).*/;
 print qq{A: '$p'};
 ;;
 ($p) = $line =~/Happy/g;
 print qq{B: '$p'};
"
A: 'Happy'
B: 'Happy'