[Novalug] regexp problem in perl

[James Ewing Cottrell 3rd]

  Your RE is still unreadable.

OK, just to be clear about this, any RE longer than about 6 characters 
Really Needs the x modifier.

Penalty is Death. Unlike the Law, the only excuse is Ignorance, followed 
by Repentance.

Writing  code like this is an affront to all who have to read it later. 
You're making us think too hard.

Perl Best Practices. Read It. Learn It. Live It.

JIM

On 8/31/2010 9:40 PM, William Sutton wrote:
> $s =~ 
> m/\d+\s*\|[^\|]*\|\d+\|(.+?)\s+([A-Z]{2}\s\d+).*\s+(\d{2}-\d{2}-\d{2})$/;