my ($max,$diff,$min) = 'Max. 456 Diff. 333 Min. 123' =~ /(\d+).*(\d+)/;
print "Maximum ist $max -- Minimum ist $min --- Differenz ist $diff\n";