21/06/03 05:36:48.69 7YWCJiE3.net
あれ、単純に\n\nってやれば良いのか
my $list = do { local $/; <DATA> };
my @list = split(/\n\n+/, $list);
my @arr2;
for (@list) {
my @arr = split(/\n/, $_);
push @arr2, \@arr;
}
print Dumper \@arr2;
__END__
aa.html
foo
bb.html
cc.html
dd.html