I don't have any good examples of my old bad code. But I'm referring to comments on how the Perl code is working when it is totally unnecessary. Comments like

# Make '3' into '03'
$some_value = sprintf "%02d", $some_value;
[download]

or perhaps code snippets where it can easily be reduced -- note that this is a contrived example, because I tend to collapse my conditionals if possible (and have for a very long time). But still it illustrates my point:

my $time = localtime();
if ($time =~ /^Tue/i) {
    if ($time =~ /2005$/) {
        print "It's some Tuesday in 2005\n";
    }
}
[download]