#!/usr/bin/perl

use warnings;
use strict;

my $string = "11875-Weihnacht-Tag.shtml";

my @cart_data = split (/\|/, $string);

print join(";", @cart_data);