Give this a try.

foreach (keys %data)
{
     next if (/^aaa$/or /^\[/ or /and/i or /\//);
     print "$_\n";
}
[download]