if( length ${ $_[ 0 ] } > 2) { my ($pre, $mid, $post) = /^(.)(.*)(.)$/; recurse( $mid ); ${ $_[ 0 ] } = "$pre ( $mid ) $post"; }
Just guessing, cause you didn't specify what output you want.
In reply to Re^3: Scalar refs, aliasing, and recursion weirdness.
by ikegami
in thread Scalar refs, aliasing, and recursion weirdness.
by BrowserUk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |