while(<fp>)
{
  s/\(/\n\(\n/g;
  s/\)/\n\)\n/g;

  my $line = join "\n",
             map { # do stuff to individual line at $_ }
             split /\n/, $_;
  # save line to array, possibly?
}