use strict;
use warnings;

my $test = "fee fi fo fee";
$_++;

if ($test =~ m!((??{ substr($test,0,$_) }))!) { };