my ( $seconds, $minutes, $hours, $days ) = reverse $inputTxt =~ /\d+/g;