#!/usr/bin/perl -w

use strict;

my $data1 = <<EOT;
1 , 2
3 , 4
EOT
;

my $c = 0;
for (split /\n/, $data1){
    print "$_\n";
    $c++;
}
print "$c lines proccessed\n";

exit 1;