perl -le '$_ = "\n"; print /^$/'
1