Perl 5 マスター Wiki

use String::RewritePrefix;
use Data::Dumper;
my @wants = qw/
Config
~Validator
+Hoge::I18
/;

my @plugins
    = String::RewritePrefix->rewrite(
        {
            ''  => 'MyApp::Plugin::' ,
            '~' => 'YourApp::Plugin::',
            '+' => ''
        },
            @wants,
    );

warn Dumper \@plugins;

$VAR1 = [
          'MyApp::Plugin::Config',
          'YourApp::Plugin::Validator',
          'Hoge::I18'
        ];