+ } elsif ($type eq 'video') {
+ error ("$file: multiple videos") if $video;
+ ($video) = ($args =~ m/\bhref="(.*?)"/);
+ error ("$file: unparsable video") unless $video;
+ error ("$file: unparsable video URL")
+ unless ($video =~ m@^https?://www\.youtube\.com/watch\?v=[^?&]+$@s);
+