import org.apache.oro.text.perl.Perl5Util;
import org.apache.oro.text.perl.MalformedPerl5PatternException;
...
Perl5Util perl= new Perl5Util();
...
/*matches m/ */
 if((perl.match("m/^AS$/", input)==false)&&
           (perl.match("m/^[ \t]*StoO_/", input)==false)&&
           (perl.match("m/^[ \t]*BEGIN$/", input)==false)&&
           (perl.match("m/^[ \t]*BEGIN[ \t\\/]/", input)==false)&&
           (perl.match("m/^[ \t]*END$/", input)==false)&&
           (
             (perl.match("m/^[ \t]*END[ \t;\\/]/", input)==false)||
             (perl.match("m/^[ \t]*END IF/", input)==true)
             )&&
           (perl.match("m/^$/", input)==false)&&
           (perl.match("m/^CREATE OR REPLACE/", input)==false)
          )
/*substitute s/// */
         myString = perl.substitute("s/^[ \t]*/ /", input);