Or if the extra scope is a problem,

while( my $line = <FH> ) {
   REDO:
   chomp( $line );

   if( $line =~ /^#/ ) {
      goto REDO;
   }

   print "Doesn't begin with #\n";
}
[download]