open IN, "< C:\\projects\\chartsweep90s\\outgood\.txt";
@data=<IN>;
close IN;
$out="outcopy\.txt";
open OUT, "> $out";

foreach $line (@data)
{
	$line =~ s/([^0-9][0-9]{1,2}[^[0-9]\s*)/$1\n/gi;
	print OUT $line;
}




close OUT;