Select Code to Download

chdir("test") ## For eg:test can be directory where the files exist. 
unless (-d "BSD"){
...
unless (-d "MCBTSSubsytem"){
    mkdir("MCBTSSubsytem") or warn ("unable to create directory MCBTSS
+ubsytem");
}

opendir(DIR, "test")
@files_BSD = grep(/^BSD-\d{14}/, readdir(DIR));
@files_SBSC = grep(/^SBSCSubsystem-\d{14}/, readdir(DIR));
@files_MCBTS = grep(/^MCBTSSubsytem-\d{14}/, readdir(DIR));

foreach (@files_BSD){
rename($_, "BSD/$_" );
...
rename($_, "MCBTSSubsytem/$_");
}