#!/usr/bin/perl -w

$orfdata = "testline";
open(FILE,$orfdata);

@odata = <FILE>;
@redodata = '';

#print scalar(@odtat),"\n";
foreach $line (@odata){chomp $line;
					   if(length($line) > 0){
						   @redodata = (@redodata, $line);
					   }
	print length($line),"\n";
}

print @redodata;

close FILE;

exit;