use strict; use warnings; while ( my $line = ) { print +( join ',', map "($_)", $line =~ /(\d*,\d*),?/g ), "\n"; } __DATA__ 1,1,,,, 1,2,,,, 3,4,1,1,, 1,1,1,1,, 5,6,3,4,1,2 1,1,1,1,1,1 ,,,,1,1 ,,1,2,, ,,1,1,1,2 ,,,,, 5,6,3,4,2,2 #### (1,1),(,),(,) (1,2),(,),(,) (3,4),(1,1),(,) (1,1),(1,1),(,) (5,6),(3,4),(1,2) (1,1),(1,1),(1,1) (,),(,),(1,1) (,),(1,2),(,) (,),(1,1),(1,2) (,),(,),(,) (5,6),(3,4),(2,2) #### use strict; use warnings; my ( $i, $success, $fail ); while ( my $line = ) { $i++; my %tuples = map { $_ => 1 } $line =~ /(\d*,\d*),?/g; $success++ if exists $tuples{'1,1'}; $fail++ if exists $tuples{'1,2'}; } print "Total Lines: $i\nSuccess: $success\nFail: $fail\n"; __DATA__ 1,1,,,, 1,2,,,, 3,4,1,1,, 1,1,1,1,, 5,6,3,4,1,2 1,1,1,1,1,1 ,,,,1,1 ,,1,2,, ,,1,1,1,2 ,,,,, 5,6,3,4,2,2 #### Total Lines: 11 Success: 6 Fail: 4 #### if((($f[1]==1)&&($f[2]==1))|| ... #### if((($f[0]==1)&&($f[1]==1))|| ...