#!/usr/local/bin/perl
use strict;

my ($file) = @ARGV;

open( FH, "<", $file ) or die "$!";

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

        if( $line =~ /^#/ ) {
                redo;
        }
        else {
                print "Doesn't begin with #\n";
        }
}

##</code><code>##

main::(jt:12):                  redo;
  DB<2>
Watchpoint 0:   $line changed:
        old value:      '#'
        new value:      ''
main::(jt:9):           chomp( $line );