#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $size = shift;
my @strings;

sub recurse {
    my ($string) = @_;
    if (2 * $size > length $string) {
        recurse($_ . $string) for qw/ ( ) /;
    } else {
        push @strings, $string if eval "qw($string) and 1";
    }
}

recurse($_) for qw/ ( ) /;
say for sort @strings;