Цифровые Мысли

sub mutate {
    my (@m, $s, $w);
    while($s = pop@_) {
        if($s =~ /\[(.*?)\]/) {
            push @_, map { ($w = $s) =~ s/\[.*?\]/$_/; $w } split '\|', $1;
        } else {
            push @m, $s;          
        }
    }
    return \@m;
}