$row->[15] = '';
if ($row->[5] =~ /#[^ ]+/) {
   ($row->[15]) = $row->[5] =~ /(#[^ ]+)/;
}

##</code><code>##

($row->[15]) = $row->[5] =~ /(#[^ ]+/ 
    ? $row->[5] 
    : '';