# es darf ein Array oder Scalar übergeben werden
sub entfernt_alle_umrueche_aus ( \[@$] )
{
  my $referenz_auf_wert = shift ( @_ );
  if(ref $referenz_auf_wert eq 'ARRAY')
  {
    s/\015\012|\015|\012//g for @$referenz_auf_wert;
  }
  else
  {
    $$referenz_auf_wert =~ s/\015\012|\015|\012//g
  }
  return 1;
}

entfernt_alle_umrueche_aus $customstorycode;