$ perl -w
use strict;
my $str = q{sometext with conetnst add kklkk&dfaf:dfaÜÄmlddö;};
$str =~ s/&(.*?);/&$1 ;/g;
print $str;
__END__
sometext with conetnst add kklkk&dfaf:dfaÜÄmlddö ;