perl -e '$_ = "hi"; print "ok\n" if ( /|x/ );