#!/usr/bin/perl -w 
    use strict; 

    ## Open I/P File "bsm1_LogFiles" for reading. 
       open(INPUT,'<','bsm1_LogFiles') or die $!; 

   ## Read from the Input File. 
      my $line  = <INPUT>; 

    ## Open the O/P File "BSC" for writing. 
       open(BSC,'>','BSC') or die $!; 

   ## Open the O/P File "SBSCSubsystem" for writing. 
      open(SBSCSubsystem,'>','SBSCSubsystem') or die $!; 

  ## Open the O/P File "MCBTSSubsystem" for writing. 
     open(MCBTSSubsystem,'>','MCBTSSubsystem')or die $!; 


      ## Search each Line in the Input File. 
         for my $searchline(<INPUT>) { 

              ## Search for parameter 'BSC-'. 
              if( $searchline =~ /BSC-/) { 

                   ## Write to the Output File 'BSC'. 
                   my $line  = 'BSC'; 
                   print BSC $searchline; 
                                         } 

 
              ## Search for parameter 'SBSCSubsystem-'. 
              elsif( $searchline =~ /SBSCSubsystem-/) { 

 
               ## Write to Output File 'SBSCSubsystem'. 
                  my $line  = 'SBSCSubsystem'; 
                  print SBSCSubsystem $searchline; 
                                                      } 

             ## Search for parameter 'MCBTSSubsystem-'. 
             if( $searchline =~ /MCBTSSubsystem-/) { 

               ## Write to Output File 'MCBTSSubsystem' 
                  my $line  = 'MCBTSSussystem'; 
                  print MCBTSSubsystem $searchline; 
                                                   } 
 
                                 } 

 
    ## Close the O/P File "BSC"; 
       close (BSC) or die $!; 

    ## Close the O/P File "SBSCSubsystem"; 
       close (SBSCSubsystem) or die $!; 
 
    ## Close the O/P File "MCBTSSubsystem"; 
       close (MCBTSSubsystem) or die $!;