my @lines;
open my $fh, "<", "/home/nikster/supertext" or die "Unable to read from supertext : $!";
while (<$fh>) {
  if (m/^hallo/i) {
    push @lines, [split m/[:\[\]]/, $_];
  }
}
close $fh;

print $lines[4]->[3];
print "@{ $lines[4] }\n";