undef $/;
open (FH, "D:\\temp.txt") || die "Couldn't  open file: $!";
@required=();
$str=<FH>;
close(FH);
(@arr)=$str=~m#(abcde.*?PARTNAME)#gsi;
print "$_\n" for @arr;