YouTube の新「埋め込みコード」を XHTML と HTML5 で Valid にする！

Valid YouTube Embed for Perl

#!/usr/bin/perl
use strict;
use warnings;
use Tkx qw( clipboard );

my $text = Tkx::clipboard('get');

# http://d.hatena.ne.jp/unau/20100121/1264073552
my $DOUBLE_QUOTED = qr{ \" ( [^ \" ]* ) \" }msx;

$text =~ s{ <iframe                 \s+
             width = $DOUBLE_QUOTED \s+
             height= $DOUBLE_QUOTED \s+
             src   = $DOUBLE_QUOTED \s+ [^>]+ >
             </iframe>
          }
{<object width="$1" height="$2" data="$3?wmode=transparent" type="text/html">
\n</object>\n}msxgo;

Tkx::clipboard( 'append', $text );