use warnings;
use strict;
my @MatchFoundArray =  "";
my $WikiHistory ="* [Any garbled crap2345n&%]i";
print "WikiHistory contains:$WikiHistory\n"; # sanity check
@MatchFoundArray = split(m/(\* \[)/,  $WikiHistory ); 
my $indexnum = 0;
foreach my $MatchFoundArray (@MatchFoundArray) {
        print "Item", $indexnum++," is $MatchFoundArray\n";
}