Select Code to Download

#!perl
use strict;
...

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

'asdasd
fghfg, hfgh

\'asdasd
fghfg, hfgh