my $pat = qr/(?:^[ \t]*\n)+(?:[ \t]+\z)?/m;

$_ = slurp_file;
my @list = /( .*? $pat | .+ )/ogsx;