asiamoth asiamoth

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

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

$text = do {
            my %count;
            join "\n"

## 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;

## html5-example.html
<!DOCTYPE html>
<html lang="ja">
  <head>
    <meta charset="utf-8">
    <title>IE8 以下でも HTML5 を！</title>
    <meta name="description" content="JavaScript を使わずに、HTML5 の新要素でマークアップする">

    <style type="text/css">
      .header  {border: pink     solid 3px}
      .article {border: red   solid 3px}
	#!/usr/bin/perl
	use strict;
	use warnings;
	use Tkx qw( clipboard );

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

	$text = do {
	my %count;
	join "\n"
	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="utf-8">
	<title>IE8 以下でも HTML5 を！</title>
	<meta name="description" content="JavaScript を使わずに、HTML5 の新要素でマークアップする">

	<style type="text/css">
	.header {border: pink solid 3px}
	.article {border: red solid 3px}