This is an obfuscation of the original multi.pl, by me, under the Code Catacombs. You can see my fondness for typeglobs and scoping here. 
#!/usr/bin/perl
my ($foo,$bar,@baz,@qux,%fum);%fum=('do','n\? 0$ yrt ,pleh rof -- stne
+mugra wef ooT','spam','re', 'eggs'                                   
+  , 'DATA','DATA',
('mi'?"\n":"\n"),q(q00),(qq                 (00)?"\\?|h":  "\\\\"));
die eval (('qq('.                scalar(reverse                       
+                   ($fum{'do'})             )).')'
    )if((@ARGV<3)&&((@ARGV<1)||($ARGV[0]!~/\?|h/)));$foo              
+        =shift @ARGV          ;{my $quuux=$fum{           'eggs'}; if
+($foo =~ /$fum{q00}/) { print eval ('qq('.$_.')') while(<$quuux>)}
{local *bar=*foo;die 
$fum{'DATA'       } if ($bar=~/\?|h/);}
{local *sep=
*bar;{}                   ;;$bar
=shift @ARGV;}
{my $tmp;{local *baz                    =*baz;push @baz,$tmp while (($
+tmp=shift @ARGV)&&$tmp ne $bar);}{local *foo=*tmp;push @qux,         
+             $tmp while((
$tmp=                               shift
@ARGV)&&$foo ne $bar) ;pop @qux;                  }      }}
while (@qux)         {my @baaz;
foreach (1..$foo) {                      push (@baaz,
(shift @qux))                   ;}system (@baz,
                            @baaz);}
__DATA__
Usage: $0 # / p / a /
where # is the number of arguments to take at a time,
      / is any string, used as a separator,
      p is the first part, usually the program name, of each command l
+ine, and
      a is the list of arguments for p.

For example: $0 1 / unzip / foo bar baz /
will execute:
unzip foo
unzip bar
unzip baz

Or: $0 2 / someprog -osz / these are some args /
will execute:
someprog -osz these are
someprog -osz some args

[download]

Have fun!

In reply to multi.pl Obfuscated by premchai21

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.