my $str=shift;
	$str = lc($str)
    # entfernen von Leerzeichen
    $str =~ s/ //g;

    # konvertierung von v. in von
	# muss VOR der Bindestrich bereinigung erfolgen
	$str =~ s/\b[vV]\.-/von/g;
	$str =~ s/\b[vV]\-/von/g;
    $str =~ s/v-/von/g;
    
    # entfernen von Bindestrichen
    $str =~ s/-//g;
...

Eingabe:
[code]work('von-Meyerstraße');
work('v.-Meyerstraße');
work('v-Meyerstraße');
work('Gustav-von-Meyerstraße');
work('Gustav-v-Meyerstraße');
work('Gustav-v.-Meyerstraße');