#!/usr/bin/perl

while (<>)
{
	s/ 
	(
		\d+	#und eine darauffolgende Integerzahl
		\s*	#und dann wieder Whitespaces
		[+*\/\-]	#mit einem Operator
		\s*	#und dann wieder eventuell Whitespaces
		\d+	#und einen zweiten Operant
	)
	/$1/eegx;
	print;
}