#!/usr/bin/perl my $str=""; while() { chomp($_); $str .= "$_"; } $str =~ /(.*)\s+<\/table>/; $req = $1; my @data = split(/<\/tr>/,$req); $data[1]=~ s/Address\s+:<\/b><\/td>//g; $data[1]=~ /(.*?)<\/td>/; print "Address: $1\n"; $data[2]=~ s/Level\s+of\s+Office\s+:<\/b><\/td>//g; $data[2]=~ /(.*?)<\/td>/; print "Level of Office: $1\n"; $data[3]=~ s/Phone\s+No\s+:<\/b><\/td>//g; $data[3]=~ /(.*?)<\/td>/; print "Phone No: $1\n"; $data[4]=~ s/Website\s+:<\/b><\/td>//g; $data[4]=~ /(.*?)(<\/a>)<\/td>/; print "Website: $2\n"; __DATA__

Address : Rehmat Manzil, 75, Veer Nariman Road, Churchgate

Level of Office : Head Office

Phone No : (22) 39534100

Website : www.adcbindia.com

Industry : BFSI

Sub Industry : Banks

City : Mumbai

State : Maharashtra

Pin : 400020

Company Type : MNC

Total Turnover : 10-100 Crs

No. of Employees : 101-250

Sector : Private Sector