use strict;
use warnings;

my $file1 = <<'STR';
"111yu",erter,"00000", ,"567"
"gh6fr",erter,"00000", ,"567"
"1t76y",erter,"00000", ,"yu7"
"yu84e",erter,"00000", ,"5h7"
STR
my $file2 = <<'STR';
111yu
345cv
yu84e
STR

for my $file (\$file1, \$file2) {
    open my $inFile, '<', $file;
    print while <$inFile>;
    close $inFile;
}