Help for this page
$row->[15] = ''; if ($row->[5] =~ /#[^ ]+/) { ($row->[15]) = $row->[5] =~ /(#[^ ]+)/; }
($row->[15]) = $row->[5] =~ /(#[^ ]+/ ? $row->[5] : '';