#!/usr/bin/perl
package LanX;
use strict;
use Filter::Simple;

my $transform = sub {
        warn "$_";
	s{ X(\w+)\[ }
	 {\$$1->\[}xg;
	s{ X(\w+) }
	 {\$$1}xg;
	warn "=> $_";
	$_;
};

FILTER_ONLY "code" => $transform;
#FILTER_ONLY "executable_no_comments" => $transform;

1;