#!/usr/bin/perl -w
use strict;

my $file;

open DATA, "<somefile.dat" or die "Can't open somefile for reading: $!\n";
{
    undef $/;
    $file = <DATA>;
}
$file =~ s/^[^\n]+\n[^\n]+\n\n//;
close DATA;

open NEWFILE, ">newfile.dat" or die "Can't open newfile for writing: $!\n";
print NEWFILE $file;
close NEWFILE;