thoughtroam - website: student project to explore semantic web for learning aid

,<x:xmpmeta [^>]+>,<?xml version="1.0" encoding="utf-8"?>,;

# strip trailing boilerplate

$xml =~ s,\s*</x:xmpmeta>,,;

$xml =~ s,\s*<\?xpacket [^>]+>,,;

say $xml;