_2CH_^i[\-0-9]+\.s\d\d.a01[035].ap.plala.or.jp
_2CH_^i[\-0-9]+\.s\d\d.a00[128].ap.plala.or.jp
_2CH_^i[\-0-9]+\.s\d\d.a027.ap.plala.or.jp

これもまとめたいなら1行にまとめられるよ
_2CH_^i[\-0-9]+\.s\d\d.a0(1[035]|0[128]|27).ap.plala.or.jp

どう書いてるのかわからないので既にやってて無意味なこと言ってる可能性はあるが
この辺の羅列の前にTLDとかccTLDで分けた方がいいかもしれん
if($りもほ =~ /or\.jp$/){
　or.jp羅列
}elsif($りもほ =~ /ne\.jp$/){
　ne.jp羅列
}elsif ...
な感じで先に分岐させればその/or\.jp$/とか判定した時点で該当しない場合はそこ飛ばすからな

もっとやるなら固定部分にしかつかえないがこうすれば正規表現より軽い
if(substr($りもほ,-5) eq 'or.jp'){....
# 「substr($りもほ,-5)「には「$りもほ」の後ろから5文字取り出したものが入る