my @list = (1..5);
my $pattern = qr/\d+(??{if($& < 3) { "" } else { "(?<!\\d)" } })/;

my @res = grep /$pattern/, @list;
say join ", ", @res;