package control; use strict; sub param { my $daten = shift(); $daten =~ s/a/b/gi; return($daten); } 1;