perlquestion
musa
I am new to perl and I have the following script.
<code>
$tree = <>; chop($tree);
while ($tree=~s/\(?([A-Z])([A-Z])\)?/\1/) {
print $tree;
print "\n";
}
</code>
When I run this program with input (A((BC)D)(EF)), i get the following output, which I don't understand. Can some explain this regular expression
<code>
(A(BD)(EF))
(AB(EF))
A(EF))
AE)
A
</code>