#!/usr/bin/perl
use warnings;
use strict;
use feature 'say';

my $word  = 'helen';
my $input = 'xxxhexxxxxxxx xle xxnxle nxxx xxnxxx xnxxhexx nxxxxx xlexxxxxx nxnx xxxx';

my $regex = '([^ \b]*' . join('[^ \b]*).*?([^ \b]*', $word =~ /(..?)/g) . '[^ \b]*)';

my @matches = $input =~ /$regex/g;
say for @matches;