Select Code to Download

$data = 'stuff stuff stuff';
$num = $data =~ s/(stuff)//g;
print $num, $/;
__DATA__
3

$num = () = 'stuff stuff stuff' =~ m/(stuff)/g;
print $num;
__DATA__
3