#! c:/perl/bin/perl.exe -slw
$|++;
use strict;
use vars qw/%data/;

open (LST, "$ARGV[0]") or die "\n$0 Error => $^E\n";
chomp (my @unclean = <LST>);
print"size : $#unclean";
for (@unclean)
{
	if ($_ =~ /^\d+\s+/)
	{
		print "First 1 : $_\n";
		#print "Line 2
		#print "Line 3
		#print "Line 4
		print "____________________________________\n";
	}	
}