clsn

###### XXX.pm:

#!/usr/bin/perl

package XXX;
use Filter::Simple;
FILTER {
    s/MXM/#/g;
}
1;

clsn

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->

<svg
   xmlns:dc="http://purl.org/dc/elements/1.1/"
   xmlns:cc="http://creativecommons.org/ns#"
   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
   xmlns:svg="http://www.w3.org/2000/svg"
   xmlns="http://www.w3.org/2000/svg"
   version="1.1"

clsn

clsn

use v6;

grammar Simpl {
  token xxx { 'x' }
  token c { 'c' }
  token end { '!' }

  token xc { <xxx>*<c> }
  token xend { <xxx>*<end> }
}

clsn

#!/bin/sh
if [ $# -gt 0 ]
    then DIR="$1"
    else DIR="."
fi

if [ -d "$DIR/.hg" ]
    then echo hg status "$DIR"
    hg status "$DIR"
elif [ -d "$DIR/.svn" ]