#!/usr/bin/perl

use warnings;
use strict;

my @array = ",Wort1 ,Wort2 ,Wort3 ,Wort4";

map {
   s%^,%%g;
} @array;

print @array;

1;