my $slurped = do {local $/; <SERVER>};

# EEK! i see my mistake now! this line
#my ($temp) = $slurped =~ /($arc.*)\n\n/sm;

# should have been
my ($temp) = $slurped =~ /^($arc.*)\n\n/sm;


print OUTPUT $temp;