Regexp::Aseembleで遊んでみた. コード 正規表現作成プログラム #!perl use strict; use warnings; use autodie; use Regexp::Assemble; use Web::Scraper; use URI; binmode STDOUT, ":utf8"; my $cache_file = 'actresses.list'; main() unless caller; sub main { my $actresses_ref; unless (-e $cache_file) { $actresses_ref = get_actress_names(); open my $fh, '>:utf8', $cache_file; print {$fh} "$_\n" for @{$actresses_ref}; close $fh;