normalize_title.pl

#!perl
use strict;
use warnings;
use Encode;
binmode(STDOUT, ':utf8');

my $title = decode('utf-8', shift);

open my $fh, '<:utf8', 'regex.txt';
while (my $str = <$fh>) {
    chomp $str;
    my $regex = eval "qr/$str/";
    $title =~ s/$regex//g;
}
print "$title\n";