if (substr($_, 0, 4) eq "sub ")