どのPerl本でも注意されていることに見事にハマった while($html =~ m|<li class="post" key="(.+?)\.\.\.\s.+?</span>\s*?</div>\s*?</li>|gs){ $tmp_html =~ m|<h4 class="desc"><a href="(\S+?)" rel=|s; # (1) ここが問題 my $tmp_url = $1; $tmp_html = $'; $tmp_html =~ m|">(.+?)</a>|s; # (2) ここも問題 my $tmp_title = $1; $tmp_html = $'; ... }…</li>