if($newline = /^>/) { #### if($newline =~ /^>/) {