$ perl -le '$_ = "oh really?"; print unless /[.]/;'
oh really?