if ($line =~ /^Happy\s+30/) { print $line . "\n"; }