###############################################
#!c:\perl\bin
use strict;

my $file="PCFD\.txt";

Open PFN, "<$file";

my @array = <PFN>;

Close PFN;

foreach (@array) {

    print();

}