#!/usr/bin/perl

use strict;
use warnings;

my $bla = "Name1%09Name2%2509Name3%252509Name4%25252509";

my @array = $bla =~ m/(.+?)%[0-9]*09/g;

foreach(@array) {
    print $_."\n";
}