use Data::Dumper; # nur Zur Debugausgabe!

my $text = "123&ZAHL";

print "Vorher: ", Data::Dumper::Dumper $text; 

$text =~ s/\&/ /g;

print "Nachher: ", Data::Dumper::Dumper $text;