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