#! /usr/bin/perl

use strict;
use warnings;

my $string = 'Dies;-) ist ein Test :-)';

my @array = split(/([:;]-\))/,$string);

print $_,"\n" for(@array);