Select Code to Download

use 5.014;  # needs /r modifier for s///  (also uses 5.10+ \K)

...
  { $3 =~ s{^}{$in}xmsgr }xmsge;

print qq{>>>$answer<<< \n\n};

c:\@Work\Perl\monks\proxie>perl prettyprint_cl_1.pl
>execute test_number_1 -tex -tex_args -sub_args +debug_dir=./ -fizz_bo
+ff -sub_args +debug_dir=./ -constraint parity_en,random_en -sub_args 
+'"' ruck=1 '"' -bar   -xyzzy   -bar-   -constraint dual_en -sub_args 
+-cd -sub_args 2596.slow -fizz_boff- -sub_args test -seed 1 -tex_args-
+ -opt 1 -foo -x y -zz 42 -foo- -tag 2 -last 1<
...
    -tag 2
    -last 1
<<<