use strict;
use warnings;

sub variable;

my $indirname = $ARGV[0];
my $variable = 00001;
my $outdirname = "F:/TTS_RA_work/convert/edited";

opendir ( DIR, $indirname ) || die "Error in opening dir $indirname\n";
my @files = grep(/.lab/,readdir(DIR));
closedir(DIR);


foreach my $filename( @files ){
	my $file = "text_000".$variable."."."lab";
	my $outfile = "$outdirname/"."$file";
	open my $output , ">$outfile" || die "Can't open the output file!";
	print "file: $file\n";
	while ( my $line = <$filename> ) {
        $line =~ s/^\s+//;
		$line =~ s/ +/ /g;
        $line =~ s/\s+$/\n/g;
		print $output $line;
	}
	close ($output);
	$variable++;
}