Help for this page

Select Code to Download


  1. or download this
     
perl -e 'undef $/; $text=<>; print $text; $/="\n";' list
  2. or download this
    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