Hab die (eine) Lösung gefunden :)

Weiß zwar nicht, ob die Schreibweise korrekt ist, aber so funktioniert's bei mir:
if ($w =~ m/^[1]/) {$w = lc $w; $w = ucfirst $w;}