perl -lne"// and print "