$string = "bla bla bla [[en:English]][[de:German]][[ga:Irish]] bla bla bla";

##</code><code>##

qw(en de ga);

##</code><code>##

@matches = ( $string = m/\[\[(en|de|ga):.+?]\]/g );

##</code><code>##

@matches = ( $string = m/\[\[(en|de|ga):(.+?)]\]/g );

##</code><code>##

my $string = 'bla bla [[en:English]][[de:German]][[ga:Irish]] bla bla';

if (my @matches = ($string =~ m/\[\[(?<lang>en|de|ga):(.+?)\]\]/g)) {
    say 'matches';
    say 'matches: ', Dumper(\@matches);
    say 'minus  : ', Dumper(\%-);
    say 'plus   : ', Dumper(\%+);
}

##</code><code>##

matches
matches: $VAR1 = [
          'en',
          'English',
          'de',
          'German',
          'ga',
          'Irish'
        ];

minus  : $VAR1 = {
          'lang' => [
                      'ga'
                    ]
        };

plus   : $VAR1 = {
          'lang' => 'ga'
        };

##</code><code>##

$VAR1 = {
          'lang' => [
                      'en',
                      'de',
                      'ga'
                    ]
        };