#!/usr/bin/perl

use strict;

while (<DATA>) {
    s/\d\d(.*)/$1/ if /\d{8}/;
    print;
}
__DATA__
20070820
070223
20080929
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.