Select Code to Download

Characters:   '"'
Comments:     /* " */
C++ comments: // "

    my $parser= qr{
        \G                  # Don't skip anything
...
            warn "Ignoring unexpected character ($char) in ($context)"
+;
        }
    }

#define ctrl(char) ( 'char' & 31 )

#!/usr/bin/perl -p0777 -i.org

...
            $1;
        }
    }g;

use strict;
use warnings;
...
        printf qq[%8d: "%s"\n], 1+$i, $strings[$i];
    }
}