my ($nobrackets = $_) =~ s/(\[|\])//g;
  my @feeder_line = split ' ', $nobrackets;