opendir DH, "Y://perlscripts2/software/perl2/music" or die $!;
while($_ = readdir(DH)){
    ...
    if (-f $_) {

##</code><code>##

		open FH, "<$_" or die $!;
		print "output for file: $_\n";
			while (my $line = <FH>) {
                                ...
				if ($line =~ /\.txt/){
                                  ...
				}
				close FH; 
			}