while ($curline = <FH>) {
	if ($curline =~ /^Subject: /) {

...

	} else {
	    next;
	}
    }