#!/usr/bin/perl 
 
my @array=<DATA>; 
 
my @first_array=grep(/First Name :(.)/,@array); 
 
map{~s/First Name :(.)/$1/}@first_array; 
 
my @last_array=grep(/Last Name :(.)/,@array); 
 
map{~s/Last Name :(.)/$1/}@last_array; 
 
 
print @first_array; 
 
print "\n"; 
 
print @last_array; 
  
 
__END__ 
 
First Name : James 
Last Name : Segrove 
DOB : 07/26/1970 
Email : jsegrove@ntlworld.com 
Password : tramontana 
Address : 50 Chesilton Crescent 
City : Fleet 
Zip : GU52 6PB 
State : Hanmshire 
Country : United Kingdom 
Phone : 01252 616106 
---------------------------------------------------------------------------------------------------------