#!/usr/bin/perl -w

$fileOUT = "mp3list.txt";
open(OUTPUTFILE,">$fileOUT");

$filename = "A02.txt";
&parseDown;

$filename = "A03.txt";
&parseDown;

$filename = "A04.txt";
&parseDown;

$filename = "A05.txt";
&parseDown;

$filename = "A06.txt";
&parseDown;

$filename = "A07.txt";
&parseDown;

$filename = "A08.txt";
&parseDown;

$filename = "A09.txt";
&parseDown;

$filename = "A10.txt";
&parseDown;


close(OUTPUTFILE);

sub parseDown {
	open(INPUTFILE,"$filename");
	
	$dir = "";

	while(($line = <INPUTFILE>) != null) {
		$line =~ m%(.*)\\(.*)%;
		$tmp_dir = $1;
		$line = $2;

		if ($tmp_dir ne $dir) {
			print OUTPUTFILE "\n" . $tmp_dir . "\n";
			$dir = $tmp_dir;
		}
		chomp($line);
		print OUTPUTFILE "\t" . $line . "\n";	
	}
	close(INPUTFILE);
}