Kann man das abkürzen (reg.Expr) ?

[xNeTworKx]

Hallo,
ich will an einem Eingabetext sehr viele Modifikationen vornehmen. Jetzt ist es sehr umständlich, wenn ich
    $text =~ s/ä/ä/g
    $text =~ s/Ä/Ä/g
    $text =~ s/ö/ö/g
    $text =~ s/Ö/Ö/g
    $text =~ s/ü/ü/g
    $text =~ s/Ü/Ü/g
    $text =~ s/ß/ß/g
    $text =~ s/Ä/Ä/g
    $text =~ s/[s1]/<img src="pics/smiley1.gif">/g

usw usw schreibe, kann man das nicht irgendwie in einen Ausdruck packen ?