#!/usr/bin/perl $licence = 1; while () { if ($licence && (/^\/\// || /^\x20\*/ || /^\/\*/)) { } else { $licence = 0; print "$_"; } }