#!/usr/bin/perl

use strict;
use warnings;

my $sep    = '<;>';
my $string = 'a<;>eine<;>an<;>eine<;>one<;>eine<;>to have a smoke<;>eine rauchen [ugs.]<;>';

my %hash = split /$sep/, $string;

while ( my ($key,$val) = each %hash ){
    print $key, " :: ", $val,"\n";
}