($row->[15]) = $row->[5] =~ /(#[^ ]+)/;
         print "$row->[5]\t$row->[15]\n";