perl -e 'undef $/; $text=<>; $text =~ tr/\n//; 1 while $text =~ s/\b(\w+\d+\s*\d+\.\d+\.\d+\.\d+)\s*\1\b/$1/ig; print $text; $/="\n"; list