#!/usr/bin/perl
 use strict; 
 use warnings; 
 open (FILE, '<', 'FB_LPWAP.txt') or die ("ERROR: Could not read file");
 print <FILE>; #Prints entire file 
 while (<FILE>){ 
 my @array = split /\t/, $_; 
 print "$array[0]\t"; #Date 
 print "$array[1]\t"; #Closing Price 
 print "$array[2]\n"; #Weighted Average Price 
 } 
 close (FILE); 

##</code><code>##

TICKER|       CO. NAME|   PRICE|	MARKET CAP|	INDUSTRY
ABC	  |      ABC Co.|    15.5|	5000|	        Industrials
AB 	  |      Alpha Beta| 12|	2500|	        Materials
DOZ	  |      ZZZZZ|	     5.05|	2800|	        Telecom
DX	  |      DX Co.|     77.2|	12000|	        Industrials
DXX	  |      DXX Co.|    50.25|	9000|           Utilities