$file =~ s/\d+/yy/; $file = lc $file;