my $pat = qr/^[ \t]*[^\s:]+:[ \t]*$/m;  # allow leading/trailing ws
my $pat = qr/^[^\s:]+:/m;

$_ = slurp_file;
my @stanzas = split /(?=$pat)/o;