$line and print ".-$line.\n";