$document =~ m!~\s*([^~]+?)\s*(?=~|$)!g;