open (my $in,"<", "./INPUTFILE") or die $!;
local $/ = "\n\n"; # Zeilentrenner sind zwei Newline
my @datei= <$in>;
close $in or die $!;

my $index = 0;            # Zähler für Blocks
for (@datei) {
  s/^\s//gm               # ersetze im Inhalt des Arrayeintrags das Leerzeichen am Anfang
    if ($index % 2 == 0); # nur den geradzahligen Block des Arrays (also Index 0, 2, 4, ...)
  $index++;
}