I'd do something like:

while ($str =~ /^TMP ([0-9\s]+)/mg) {
    my $line = $1;
    my @temps = $line =~ /[0-9]+/g;
    ...
}
[download]