#!/usr/bin/perl -l

# https://perlmonks.org/?node_id=1226058

use strict;
use warnings;

$_ = 'abc';

/(.).*\1/ or print for glob "{@{[ s/\B/,/gr ]}}" x length;
[download]