#!/usr/bin/perl

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

use strict;
use warnings;

'0123456789' =~ /(.).*?(.).*?(.).*?(.)(?{print "$1$2$3$4\n"})(*FAIL)/;