perl -lwe 'print "\n" =~ /\s+$/;'