Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl

...
lll
Lets
mad.gif
  2. or download this
    @:1107530717::1 is a duplicate of @:1107530709::1
@:1107532976::1 is a duplicate of @:1107532758::1
  3. or download this
    undef $/;
my $file = <DATA>;
$file =~ s/^\@:\d{10,}:(?:\d{10,})?:1\n(.*?)
          (^\@:\d{10,}:(?:\d{10,})?:1\n\1)/$2/msxg;
print $file;