lemur:~ 731> perl -le '$_ = "1234\n"; print "You sure?" if /^\d+$/' 
You sure?
lemur:~ 732>