http://qs1969.pair.com?node_id=428265


in reply to Re^2: Scalar refs, aliasing, and recursion weirdness.
in thread Scalar refs, aliasing, and recursion weirdness.

Still probably not what you are looking for (i.e. no refs), but closer maybe? (at least no regex)
#!/usr/bin/perl -slw use strict; my $str = 'aaaaaaaaaa'; print recur($str); sub recur { my $s = shift; return "" if length($s)==0; substr($s,1,-1) = recur(substr($s,1,-1)); return "($s)"; }


-- All code is 100% tested and functional unless otherwise noted.