Help for this page
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 $