$from = "(\d\d).+?(\.\w+)";
print $from, "\n";
# Ausgabe: (dd).+?(.w+)