perl -ple"$_ = qq[\n] . $_ if /^*header/" infile >modified