SYMBOL|NAME|LAST TRADE|CHANGE|VOLUME|RELATED INFO
BAC|Bank of America Corporation Com|7.82 4:00PM EDT|0.24 (2.98%)|120,161,969|Chart, Profile, More
JPM|JP Morgan Chase & Co. Common St|34.38 4:02PM EDT|1.50 (4.18%)|58,529,307|Chart, Profile, More
SIRI|Sirius XM Radio Inc.|2.09 4:00PM EDT|0.05 (2.45%)|52,421,104|Chart, Profile, More
####
for my $lin_line ( split (/\n/, $lin[1]) ) {
my ( $symbol ) = $lin_line =~ m/(\w*)|/;
next if $symbol eq "SYMBOL";
$lin_line =~ s|(Chart)|$1: http://finance.yahoo.com/q/bc?s=$symbol|;
}
continue {
print US $lin_line, "\n";
}
##
##
SYMBOL|NAME|LAST TRADE|CHANGE|VOLUME|RELATED INFO
BAC|Bank of America Corporation Com|7.82|Jul 5|0.24 (2.98%)|120,161,969|Chart: http://finance.yahoo.com/q/bc?s=BAC, Profile, More
JPM|JP Morgan Chase & Co. Common St|34.38|Jul 5|1.50 (4.18%)|58,529,307|Chart: http://finance.yahoo.com/q/bc?s=JPM, Profile, More
SIRI|Sirius XM Radio Inc.|2.09|Jul 5|0.05 (2.45%)|52,421,104|Chart: http://finance.yahoo.com/q/bc?s=SIRI, Profile, More