Perl Patten Matching and Data Extraction

[Manasa]

The data is in the following format in multiple lines. The method that
I tried seems to be crude way of reading lines. I would really
appreciate if anyone has a better solution or there is some module to
extract data.


Business Name ABCD EFG COMPANY
Business Address ADDRESS LINE1
ADDRESS LINE 2
Zip ZIPCODE
Business Owner BUSINESS OWNER NAME
Mailing Address ADDRESS LINE1
, ADDRESS LINE2
Business Start Date START DATE
Expiration date EXPIRATION DATE
Account# 123456
#Employees 1
#Units 0
#Square Feet 0
Nature of Business ELEC CONSTRUCTION

Business Name HIJ KLMN COMPANY
Business Address ADDRESS LINE1
ADDRESS LINE2
Zip ZIPCODE
Business Owner BUSINESS OWNER NAME
Mailing Address ADDRESS LINE1
, ADDRESS LINE2
Business Start Date START DATE
Expiration date EXPIRATION DATE
Account# 078912
#Employees 1
#Units 0
#Square Feet 0
Nature of Business COMPUTER CONSULT

I need to extract all the field values to store them into a database.
Each record is separated by an empty line.

Thanks in advance,
Manasa

 

[Mothra]

The data is in the following format in multiple lines. The method that
I tried seems to be crude way of reading lines. I would really
appreciate if anyone has a better solution or there is some module to
extract data.

Can you print the method you tried?

 

[Mothra]

Can you print the method you tried?

Scratch that - here is what you need:

perldoc perldsc