*** prg2lout.c.orig	Tue Dec 17 00:11:37 2002
--- prg2lout.c	Fri Jul 18 20:21:24 2003
***************
*** 1422,1426 ****
  
  
! TOKEN PerlRegExpLPar    = PerlREToken("(",      "@PO{\"(\"} @PS{\"/\"address@hidden");
  TOKEN PerlRegExpEq      = PerlREToken("=",      "@PO{\"=\"} @PS{\"/\"address@hidden");
  TOKEN PerlRegExpMatch   = PerlREToken("=~",     "@PO{\"=~\"} @PS{\"/\"address@hidden");
--- 1422,1426 ----
  
  
! TOKEN PerlRegExpLPar    = PerlREToken("(",      "@PO{\"(\"address@hidden"/\"address@hidden");
  TOKEN PerlRegExpEq      = PerlREToken("=",      "@PO{\"=\"} @PS{\"/\"address@hidden");
  TOKEN PerlRegExpMatch   = PerlREToken("=~",     "@PO{\"=~\"} @PS{\"/\"address@hidden");
***************
*** 2696,2705 ****
    {
      &BackSlashToken,
!     /* &PerlRegExpLPar, */ /* This produces extra space between the paren and
! 			      the slash */
!     &PerlRegExpEq, &PerlRegExpMatch, &PerlRegExpNoMatch,
!     &PerlRegExpSplit, &PerlRegExpIf, &PerlRegExpAnd, &PerlRegExpAnd2,
!     &PerlRegExpOr, &PerlRegExpOr2, &PerlRegExpXor, &PerlRegExpNot,
!     &PerlRegExpNot2, &PerlRegExpUnless,
      &PerlDoubleQuoteStringToken, &PerlSingleQuoteStringToken,
      &PerlBackQuoteStringToken, &RubyGenDelimStringToken,
--- 2696,2703 ----
    {
      &BackSlashToken,
!     &PerlRegExpLPar,  &PerlRegExpEq,  &PerlRegExpMatch, &PerlRegExpNoMatch,
!     &PerlRegExpSplit, &PerlRegExpIf,  &PerlRegExpAnd,   &PerlRegExpAnd2,
!     &PerlRegExpOr,    &PerlRegExpOr2, &PerlRegExpXor,   &PerlRegExpNot,
!     &PerlRegExpNot2,  &PerlRegExpUnless,
      &PerlDoubleQuoteStringToken, &PerlSingleQuoteStringToken,
      &PerlBackQuoteStringToken, &RubyGenDelimStringToken,