#!/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]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.