#!/usr/bin/perl
use strict;
use warnings;
my $string = "This is just and example text string to test our regex. Please ignore it.";
my $wordpadding = 2;
my $searchword = "test";
$string =~ /((\w+\W+?){$wordpadding}$searchword(\W+?\w+){$wordpadding})/;
print $1;