my ($var) = $row->[5] =~ /(#[^ ]+)/ ;