# Pastebin geAbPBVH
my $title = (%fields<title>.body-text || %fields<file0>.filename || 'warp-document') ~ '.pdf';
my $filename = S:g/ /-/ given $title;