#!perl
use strict;

# in1.txt
# '\'asdasd', 'fghfg, hfgh'

my @data =  do 'in1.txt';
print "$_\n" for @data;