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

open(FH, "/testfile");
while (my $line = <FH>) {
   last if $line =~ /^## START/;
   print $line;
}
close(FH);