Select Code to Download

 #!/usr/bin/perl
 use strict; 
...
 print "$array[2]\n"; #Weighted Average Price 
 } 
 close (FILE);

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