in reply to create a perl script for pattern matching
http://search.cpan.org/~duncand/SQL-Routine-SQLParser-0.01/lib/SQL/Routine/SQLParser.pm
One world, one people