#!/usr/bin/perl

opendir (DIR, ".");
@fullfilelist = readdir DIR;
foreach my $file (@fullfilelist) {
        next unless ($file =~ m/^./);
        $file =~ s/\n//g;
        $file =~ m/(^.*$)/;
        $new = "(Trance) ". $1;
        print "$file = $new\n";
        `mv \"$file\" \"$new\"`;
}
closedir (DIR);