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

##</code><code>##

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));

##</code><code>##

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