#!/usr/bin/perl

use strict;
use warnings;

my $string = "   * [[Test789][Test123]]";

# "   * [[" am Anfang wegschnippeln
$string =~ s/^.*\[\[//g; 

# "]]" am Ende wegschnippeln
$string =~ s/\]\]$//g;

# In Array @string wursten ...
my @string = split("\\]\\[",$string);

# Zweites Element in Array @string ausgeben
print $string[1] . "\n";

# Oder letztes Element in Array @string ausgeben 
print $string[-1] . ';.)' . "\n";