#!/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)";
}