#!perl
use strict;

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

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

##</code><code>##

'asdasd
fghfg, hfgh

##</code><code>##

\'asdasd
fghfg, hfgh