#!/usr/bin/perl
use warnings;

my $tempBlackList = "[11.22.33.44]-30,[55.66.77.88]-30";
while ($tempBlackList =~ /\[([^][]+)]/g) {
    print "$1\n";
}