Text::FrontMatter::YAML

#!/usr/bin/perl
 
use File::Slurp;
use Text::FrontMatter::YAML;
 
# READING
my $text_with_frontmatter = read_file("item.md");
my $tfm = Text::FrontMatter::YAML->new(
    document_string => $text_with_frontmatter
    );
 
my $metadata = $tfm->frontmatter_hashref;
 
print qq(This is $metadata->{title}:\n);