#!/usr/bin/perl

while(<DATA>){

s/^\d\d//g;
print $_;
}

__DATA__
20070820
070223
20080929