@lines = ; $in_license = true; foreach (@lines) { if ($in_license && /^\*\*/ || /\*\*$/) { ; } else { $in_license = false; push @code_lines, $_; } } print <