#!/usr/bin/perl

# https://perlmonks.org/?node_id=1220646

use strict;
use warnings;

$_ = q(execute test_number_1 -tex -tex_args -sub_args +debug_dir=./ -sub_args +debug_dir=./ -constraint parity_en,random_en -sub_args '"' ruck=1 '"' -constraint dual_en -sub_args -cd -sub_args 2596.slow -sub_args test -seed 1 -tex_args- -opt 1 -tag 2);

print "$_\n\n";

my $answer = '';
$answer .= s/^-/\t-/gmr . "\n" for /\S.*?(?= +-)/g;
$answer =~ s/^(\s*)(-\w+)\n\K((?:.*\n)*?)(?=\1\2-\n)/ $3 =~ s#^#\t#gmr /gem;

print $answer;

##</code><code>##

execute test_number_1 -tex -tex_args -sub_args +debug_dir=./ -sub_args +debug_dir=./ -constraint parity_en,random_en -sub_args '"' ruck=1 '"' -constraint dual_en -sub_args -cd -sub_args 2596.slow -sub_args test -seed 1 -tex_args- -opt 1 -tag 2

execute test_number_1
        -tex
        -tex_args
                -sub_args +debug_dir=./
                -sub_args +debug_dir=./
                -constraint parity_en,random_en
                -sub_args '"' ruck=1 '"'
                -constraint dual_en
                -sub_args
                -cd
                -sub_args 2596.slow
                -sub_args test
                -seed 1
        -tex_args-
        -opt 1