m/^
	(
	NANQ|INF|NANS|   # Possible non numerics
	\d+              # a number ...
	(?:[,\.]\d+)?	 # ... with an optional decimal part
	)                # memorise the value of : tin .

	\s+

	(
	NANQ|INF|NANS|   # The same one
	\d+              
	(?:[,\.]\d+)?	 
	)                # memorise the value of : tout .

	\s+
                                                
	(?:[\d\s\.,]|NANQ|INF|NANS)+   	# Rest of the line . 

$/x 

##</code><code>##

s/^\d\d:\d\d:\d\d\s*(?:CPU|INTR)\s*//

##</code><code>##

s/de\s+sr\s+(\w\d|\w\w|\w\w\d|--|\s)+in\s+sy/de sr in sy/g