use strict;
use warnings;

use Data::Dumper;

my @d = do {
  local $/ = "Dut No$/";
  my @d = <>;

  chomp @d;
  @d[1..$#d];
};

print Dumper \@d;