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

open(FILE,"< file1.txt");
my @lines=<FILE>;
close(FILE);
my $found=0;
foreach my $line(@lines)
{
 if($found)
 {
  print "$line";
 }

 if($line=~/start/)
 {
  $found=1;
  print "$&$'";
 }
}