#!/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);