Alright, so I am now able to skip everything up to and including the line.. the problem is.. that it will write only write to the new file one line... Like the socket closed on me or something. Here is the snippet of code I am using to copy the file over.

while($request = <$socket>)
{
if($request =~ /(\r\n\r\n)(.*)/)
{
print FILE1 $2;
while($request = <$socket>) {
print FILE1 $request;
}
}
}