Minor improvements to the regexes:

while(<fp>)
{
    s#([()])#\n$1\n/g;
    for(  split /(?<=\n)/  ) {
        print "Look Ma, still got newlines: $_";
    }
}
[download]

        - tye (but my friends call me "Tye")