perlでHTMLを解析して欲しい情報を抽出するためのコードをメモ

<div id="post-1653" class="post-1653 post type-post status-publish format-standard hentry category-virtualbox">

  <div class="entry-date-top">
          <span class="entry-month">2014</span>
          <span class="entry-day">1/16</span>
  </div>


  <div class="entry-title"><a href="https://www.virment.com/mac/virtualbox/1653/" title="Permalink to VirtualBoxにおける仮想マシンの仮想ディスク容量を拡張するための手順" rel="bookmark">VirtualBoxにおける仮想マシンの仮想ディスク容量を拡張するための手順</a></div>


  <div class="entry-meta">    
  
  <span class="cat-links"><span class="entry-utility-prep entry-utility-prep-cat-links"> Category: </span> <a href="https://www.virment.com/category/mac/virtualbox/" title="VirtualBox の投稿をすべて表示" rel="category tag">VirtualBox</a></span>  </div><!-- .entry-meta -->
  
  <div class="entry-content clearfix">
    <span style=" float: left; margin-right: 1em;"><img width="250" height="150" src="./virtualiment_files/first_disp_mod-250x150.png" class="attachment-small" alt="first_disp_mod"></span>
    <p>VirtualBoxでは、仮想マシン作成時に仮想ディスク容量を決めますが、仮想マシンを使用していると仮想ディスクの容量が不足してくることがあると思います。ここでは、このような場合に仮想マシンの仮想ディスク容量を拡張して増やすための手順をメモします。 <a href="https://www.virment.com/mac/virtualbox/1653/" class="more-link"><span>続きを読む</span></a></p>
  </div> <!-- end .entry-content -->
  
  
 <div class="entry-meta-bottom">

  </div><!-- .entry-meta-bottom -->

</div> <!-- end #post-1653 .post_class -->        
                
          <div id="post-1622" class="post-1622 post type-post status-publish format-standard hentry category-linux">

  <div class="entry-date-top">
          <span class="entry-month">2014</span>
          <span class="entry-day">1/15</span>
  </div>


  <div class="entry-title"><a href="https://www.virment.com/linux/1622/" title="Permalink to Linux Mint 16で日本語入力環境を整えるまでの手順" rel="bookmark">Linux Mint 16で日本語入力環境を整えるまでの手順</a></div>


  <div class="entry-meta">    
  
  <span class="cat-links"><span class="entry-utility-prep entry-utility-prep-cat-links"> Category: </span> <a href="https://www.virment.com/category/linux/" title="Linux の投稿をすべて表示" rel="category tag">Linux</a></span>  </div><!-- .entry-meta -->
  
  <div class="entry-content clearfix">
    <span style=" float: left; margin-right: 1em;"><img width="250" height="150" src="./virtualiment_files/menu1_mod-250x150.png" class="attachment-small" alt="menu1_mod"></span>
    <p>最近、Linux Mintというディストリビューションに興味を持ち、言語を英語に設定してインストールしました。インストールしたのはLinux Mint 16です。Ubuntuをベースにしているそうで、Ubuntuを使っていた自分にとっては何の抵抗も無く使えたので、今後使って行こうと思っています。ただ、日本語入力ができなかったので、日本語入力環境を整える必要がありました。ここに日本語入力できるようにするまでの手順をメモしておきます。 <a href="https://www.virment.com/linux/1622/" class="more-link"><span>続きを読む</span></a></p>
  </div> <!-- end .entry-content -->
  
  
 <div class="entry-meta-bottom">

  </div><!-- .entry-meta-bottom -->

</div> <!-- end #post-1622 .post_class -->        
                
          <div id="post-1594" class="post-1594 post type-post status-publish format-standard hentry category-virtualbox">

  <div class="entry-date-top">
          <span class="entry-month">2014</span>
          <span class="entry-day">1/15</span>
  </div>


  <div class="entry-title"><a href="https://www.virment.com/mac/virtualbox/1594/" title="Permalink to VirtualBoxが仮想マシンの仮想ディスクなどを格納するフォルダの変更方法" rel="bookmark">VirtualBoxが仮想マシンの仮想ディスクなどを格納するフォルダの変更方法</a></div>


  <div class="entry-meta">    
  
  <span class="cat-links"><span class="entry-utility-prep entry-utility-prep-cat-links"> Category: </span> <a href="https://www.virment.com/category/mac/virtualbox/" title="VirtualBox の投稿をすべて表示" rel="category tag">VirtualBox</a></span>  </div><!-- .entry-meta -->
  
  <div class="entry-content clearfix">
    <span style=" float: left; margin-right: 1em;"><img width="250" height="150" src="./virtualiment_files/menubar-250x150.png" class="attachment-small" alt="menubar"></span>
    <p>VirtualBoxを使用していると、仮想マシンの仮想ディスクがハードディスクを圧迫してきます。この対策として、VirtualBoxが仮想マシンの仮想ディスクやその他のデータを格納するフォルダ（仮想フォルダと呼ぶみたいなので、以降でもこの呼び名を使います。）を、別のハードディスクや別のパーティションに変更することが挙げられます。ここではこの方法についてメモします。簡単です。ただし、仮想マシンが起動しなくなったり、その他のデータが消えたりする可能性がなくはないので、全て自己責任でお願い致します。大事なデータはバックアップを取ってから作業して下さい。 <a href="https://www.virment.com/mac/virtualbox/1594/" class="more-link"><span>続きを読む</span></a></p>
  </div> <!-- end .entry-content -->
  
  
 <div class="entry-meta-bottom">

  </div><!-- .entry-meta-bottom -->

</div> <!-- end #post-1594 .post_class -->

use strict;
use warnings;
use LWP::UserAgent;
use HTML::TreeBuilder;

#　HTML::TreeBuilderのオブジェクト作成
my $tree = new HTML::TreeBuilder;

#　parse_fileでローカルに保存された「virtualiment.html」を解析、木構造に変換して取得
$tree->parse_file( "virtualiment.html" );
$tree->eof();

my $date;
my $url;
my @id;
my $title;
my $desc;

        #　id要素の値が「post-３桁以上４桁以下」である部分を全て取得
    foreach my $tag ($tree->look_down("id",qr/post-\d{3,4}/)) {

        #　class要素の値が「entry-date-top」で、その中のclass要素の値が「entry-date」である部分のテキストを取得
        $date = ($tag->look_down("class","entry-date-top")->look_down("class", "entry-day"))->as_text;

        #　class要素の値が「entry-title」である部分のリンクを取得
        $url = ($tag->look_down("class", "entry-title")->extract_links('a', 'href'))->[0]->[0];

        #　$urlの中の数字のうち３桁以上４桁以下の数字を取得
        @id = grep{/\d{3,4}/}(split( /\D+/, $url));

        #　class要素の値が「entry-title」である部分のテキストを取得
        $title = $tag->look_down("class","entry-title")->as_text;

        #　class要素の値が「entry-content clearfix」で、その中のpタグの部分のテキストを取得
        $desc = $tag->look_down("class","entry-content clearfix")->look_down("_tag", "p")->as_text;

          print "date is ".$date."\n";
          print "url is ".$url."\n";
          print "ID is ".$id[0]."\n";
          print "title is ".$title."\n";
          print "description is ".$desc."\n\n";
        
    }

# オブジェクトを削除
$tree = $tree->delete;                                                                                     

$tree->look_down("id",qr/post-\d{3,4}/)

$date = ($tag->look_down("class","entry-date-top")->look_down("class", "entry-day"))->as_text;

 $desc = $tag->look_down("class","entry-content clearfix")->look_down("_tag", "p")->as_text;

$url = ($tag->look_down("class", "entry-title")->extract_links('a', 'href'))->[0]->[0];

@id = grep{/\d{3,4}/}(split( /\D+/, $url));

$ perl test.pl
date is 1/16
url is https://www.virment.com/mac/virtualbox/1653/
ID is 1653
title is VirtualBoxにおける仮想マシンの仮想ディスク容量を拡張するための手順
description is VirtualBoxでは、仮想マシン作成時に仮想ディスク容量を決めますが、仮想マシンを使用していると仮想ディスクの容量が不足してくることがあると思います。ここでは、このような場合に仮想マシンの仮想ディスク容量を拡張して増やすための手順をメモします。 続きを読む

date is 1/15
url is https://www.virment.com/linux/1622/
ID is 1622
（以下省略）

$tree->parse_file( "virtualiment.html" );
$tree->eof();

# urlを指定する
my $site = 'https://www.virment.com';

# user agentを指定
my $user_agent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)";

# LWP使って$siteで指定したサイトにアクセスし、そのサイトのhtmlファイルを取得する
my $ua = LWP::UserAgent->new('agent' => $user_agent);
my $response = $ua->get($site);
my $html = $response->content;
$tree->parse($html);
$tree->eof();

use strict;
use warnings;

my $str = "This12is34a56pen";
my @array;


@array = split(/\D+/, $str);

foreach my $tmp(@array){
   print $tmp."\n";
}

$ perl split_test.pl 

12
34
56