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";
}