#!/usr/local/bin/perl5
# 
# Program to transpose temp1.txt
#

$dirname = "C:\\cynthia\\perl";
print "\n\nDirectory is : $dirname\n\n";
opendir (DATADIR, $dirname) or die "can't opendirname; $!";

$filename = "temp.pl";
print "Filename is : $filename\n\n";
open(LINE,"temp2.txt")|| die "\nERROR: Could not open input file $infilename";

# assign the first line to a variable 
# $line = <LINE>; 

# use a loop to keep reading the file 
# until it reaches the end 
while ($line = <LINE>)
	{ 
	chomp $line; 
  
  		if ($line =~m/^All avg/ ){
 	 		print "$line\t";
  		}else{
    			print "$line\n\n";
    		}
	} 

# close file when done 
close(LINE); 


#close dir
closedir (DATADIR);

# display message when done 
print "DONE!\n";