Select Code to Download

a;b;1;foo
j;k;2;dog
m;n;3;cat
y;z;1;bar

#!/usr/bin/perl -w

...
my $lines= join('', @rows );
print "string: $lines";
exit;

$ ./at.pl 
string: a;b;1;foo
y;z;1;bar
$