use strict;
use warnings;

my $input = "!Frequency[A][B][C]  ..some other text..";
$input    =~ s/^!//;  # dump that leading '!'
print "'$input'\n";

my @pieces = split(/[\]\[]+/, $input);

foreach my $piece (@pieces)
{
   print "PIECE '$piece'\n";
}