sub entfernt_alle_umrueche
{
  my $string = shift(@_);
  $string =~ s/\015\012|\015|\012//g;
  return $string;
}

$customstorycode = entfernt_alle_umrueche( $customstorycode );