Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use warnings;
...
        }
    }
}
  2. or download this
    use warnings;
use strict;
...
    }
    push @buf, $_;
}
  3. or download this
    use warnings;
use strict;
...
    print /\A#/?():'#', $_, "\n"
        unless /\A#?\d+\n$exclre(?!.*\n)/;
}