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;
     }
}

##</code><code>##

 
Text_1
sample-text file Text_1
 matching the 1st line
 matching the last line
Text
text_1
text-2
sample-text file text-2
 matching the 1st line
 matching the last line

##</code><code>##

 
sample-text file Text_1
 matching the 1st line
 matching the last line
text
text_1
sample-text file text-2
 matching the 1st line
 matching the last line