perl -Tpe 's=^\s*$=='