>$time =~ s/\D//g;

das löscht alles was keine zahl ist. D steht für digit also ziffer grosses D ist das gegenteil. das s steht für substitude also ersetzen also er ersetzt immer wenn er etwas findet was keine ziffer ist mit nichts(zw. slash 2 u 3 ist ja nichts) und das g am ende sagt das er es immer wieger machen soll (global)

>$string_time =~ s/[^\d]//g;

das löscht ziffern die am anfang stehen.\n\n

<!--EDIT|lichtkind|1148075082-->