perl -e '$string="hoge";$seiki[0]="m/hoge/";if(eval "$string=~$seiki[0]"){print "MATCH"}'