my ( $match ) = /#(\S*)/;
say $match;