$line = ($_ =~ /-\s/);