'qweqwe', 'rtyr tyr',
'\'asdasd', 'fghfghfgh'

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

open my $file, '<', 'test1.dat';
my @data=do $file;
close $file;

print Dumper \@data;

exit;
__END__

##</code><code>##

D:\PerlMonks>read1.pl
$VAR1 = [
          undef
        ];

D:\PerlMonks>