#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @blocks;

{
    local $/ = "#\n";
    while(my $entry = <DATA>){
        chomp $entry;
        push @blocks,$entry;
    }
    
    @blocks = grep{$_}@blocks;
}

print Dumper(\@blocks);

__DATA__
#
   dlf951121.1200.n2.txt
   dlf951121.1230.n2.txt
   dlf951121.1330.n4.txt
#
   dlf951121.1200.n2.txt
   dlf951121.1230.n2.txt
   dlf951121.1330.n4.txt
#
   dlf951121.1200.n2.txt
   dlf951121.1230.n2.txt
   dlf951121.1330.n4.txt
#
   dlf951121.1200.n6.txt
   dlf951121.1230.n4.txt
#
   dlf951121.1200.n6.txt
   dlf951121.1230.n4.txt
#