$"=", ";/\d+$/,say"$`@{$`{$`}}"for grep{/\d+$/;push@{$`{$`}},$&;@{$`{$`}}==1}<>