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