Writing a Regular Expression in Perl

[Sparkle1984]

I am writing a Perl program which reads in text file made up of records of data about different companies (clients). Each individual record in the file starts with a token (= and ends with =). I need to write a regular expression pattern which will split the text file into individual records, by locating all the brackets and equals signs.

I have tried using the following code:
@records = ($records = ~M/(\(= .*? =\))/xg;
but this causes an error.

Thanks for any help.

 

[MikeLacey]

Hello Sparkle,

Could you post a couple of lines of the text file please?

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

 

[Sparkle1984]

Yes, here's one example record from the text file:

(= CLIENT-name: [ MegaFizz-Inc]
YEAR:1993; Month:april;
value:[$388 ]
area:[ C.I.]
discount:[8%]
=)