use strict;
use warnings;

my $filename = 'test1.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";

my $line;
my $flag=1;
 while($line=<$fh>)
 {
     if($flag == 0)
     {
         print $line;
         next;
     }
     if($line=~/sample-text/)
     {
         $flag=0;
         print $line;
     }
}