#!perl

use strict;
use warnings;

my @prog = grep  -f, @ARGV;
    @ARGV = grep !-f, @ARGV;

foreach my $prog (@prog) {
  my $code = `perl -MO=Deparse,-sC,-p $prog`;
  my $eingabe = ($code =~ /[\$\@]ARGV/) ? 'ARGV' : 'STDIN';
  open (DATEI,$prog);
    chomp (my $shebang = <DATEI>);
    my $inhalt = join '', <DATEI>;
  close (DATEI);
  $inhalt =~ s/(?<![\w\$])#.*?$//gm;
  $inhalt =~ s/(?:^[\s\n]+|[\s\n]+$)//gs;
  my ($pp) = ($shebang =~ /^#!.*? ([^#]*)/);
  $pp =~ s/\s+$//;
  my $zeichen = length($inhalt) + length($pp||''); # Zeichen = Inhalt + Parameter nach "#!...perl "
  print $zeichen, " Zeichen...\n";
  print $eingabe eq 'ARGV' ? `perl $prog @ARGV` : `echo @ARGV|perl $prog`;
  print "\n\n";
}