Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $date (sort keys %output) {
    print "$date\t$output{$date}\n";
}

#!/usr/bin/perl
use warnings;
...
$string =~ s/^[0-9]+-//gm;
$string =~ s/^([0-9]+)(.*)/$1$2 $table->[$1-1][1]/gm;
print $string;

perl -pe 's/(....)(..)/$1-$2-/'

set term pngcairo size 1024, 800
set xdata time
...
plot 'pm-xp.txt' using 2:4 with lines title 'XP',\
     '' using 2:($1*1000) with lines title 'Level',\
     'wayback.txt' using 1:2 with lines title 'Wayback Machine'