Разбор аргументов командной строки, содержащие группы в скобках

#!/usr/bin/perl
use strict;
use warnings;
 
my @input = @ARGV;
 
my @parsed_items;
my $current_item;
 
while (@input) {
    my $arg = shift @input;
    
   
    if ($arg =~ /^\(/) {
        
        $arg =~ s/^\(//;
        $current_item = [$arg]; 
        
        
        while (@input) {
            my $next_arg = shift @input;
            
            # Если аргумент заканчивается закрывающей скобкой
            if ($next_arg =~ /\)$/) {
                $next_arg =~ s/\)$//; 
                push @$current_item, $next_arg if $next_arg ne '';
                last; 
            } else {
                push @$current_item, $next_arg;
            }
        }
        
        push @parsed_items, $current_item;
    } else {
        # Если это просто одиночный элемент
        push @parsed_items, $arg;
    }
}
 
 
foreach my $item (@parsed_items) {
    if (ref $item eq 'ARRAY') {
        print "Item with values: (" . join(", ", @$item) . ")\n";
    } else {
        print "Single item: $item\n";
    }
}

use strict;
 
my $expr  = join "," , @ARGV;
   $expr  =~ tr/()/[]/;
   $expr  =~ s/^/(/;
   $expr  =~ s/$/)/;
 
no strict;
@ARGV = eval $expr;
use strict;
 
$, = '|';
print ref eq 'ARRAY' ? @$_ : $_ for @ARGV;