my $match = /#(\S*)/ ? $1 : "";
say $match;