use strict;
my @files = qw[BoundariesSwitchGARP.txt
               CliCreateConfFile.txt
               BoundariesSystemIPAddressing.txt
               BoundariesSystemDiagnostics.txt
               Mib2cliQosSet.txt
            ];
foreach my $file (@files) {
    print "$file\t";
    $file =~ s/(\B[A-Z])/ $1/g;
    print "$file\n";
}
__OUTPUT__
BoundariesSwitchGARP.txt           Boundaries Switch G A R P.txt
CliCreateConfFile.txt              Cli Create Conf File.txt
BoundariesSystemIPAddressing.txt   Boundaries System I P Addressing.tx
+t
BoundariesSystemDiagnostics.txt    Boundaries System Diagnostics.txt
Mib2cliQosSet.txt                  Mib2cli Qos Set.txt
[download]

update to show before and after.