妖精さんいる？
TPOの処理ってどうやってますか？
$data =~ /$key/みたいにしてTPOの数だけ回すと
遅くなるような気がするんですけど