There's also the substr method.

while ( <FILE> ) {
    next if substr( $_, 0, 1 ) eq '#';
}
[download]

For simple matches anchored to a non-varying character position, substr may be a little quicker, but at the cost of being a little less Perlish. In the end, it probably doesn't matter which you use.