#!/usr/bin/perl

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

use strict;
use warnings;

(1 x 10) =~ /.+?(.).*?(.).*?(.)(?{print @-, "\n"})(*FAIL)/;