Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!thunder.mcrcim.mcgill.edu!snorkelwacker.mit.edu!apple!sun-barr!cs.utexas.edu!tut.cis.ohio-state.edu!VAX1.CC.UAKRON.EDU!mcs.kent.edu!usenet.ins.cwru.edu!ncoast!allbery
From: allbery@NCoast.ORG (Brandon S. Allbery KB8JRR)
Newsgroups: comp.lang.perl
Subject: Re: Help! (What else?)
Message-ID: <1991Jan22.231215.28605@NCoast.ORG>
Date: 22 Jan 91 23:12:15 GMT
References: <4569@male.EBay.Sun.COM>
Reply-To: allbery@ncoast.ORG (Brandon S. Allbery KB8JRR)
Followup-To: comp.lang.perl
Organization: North Coast Computer Resources (ncoast)
Lines: 20

As quoted from <4569@male.EBay.Sun.COM> by carl@mugwump.UK.Sun.COM (Carl Johnson - Sun EHQ - MIS):
+---------------
| 	perl -pe 's/\^(.)/sprintf("%c",ord($1) &~ 0x40)/ge' < thefile
| 
| I get :-
| 	syntax error in file /tmp/perl-ea06498 at line 2, next token "}"
| 	Execution aborted due to compilation errors.
+---------------

Do you have the latest patchlevel of Perl?  This looks like an earlier patch
level, which did in fact get this wrong if you left off the trailing
semicolon.  If it works when you put a ";" after the "/ge", this is the
problem; get the patches to bring your Perl up to patchlevel 44.

++Brandon
-- 
Me: Brandon S. Allbery			    VHF/UHF: KB8JRR on 220, 2m, 440
Internet: allbery@NCoast.ORG		    Packet: KB8JRR @ WA8BXN
America OnLine: KB8JRR			    AMPR: KB8JRR.AmPR.ORG [44.70.4.88]
uunet!usenet.ins.cwru.edu!ncoast!allbery    Delphi: ALLBERY