my $match = /#\K\S*/ ? $& : "";
say $match;