date info

[michael wang]

Hi,

if I have something like xxxx20080503, how can I get the date a year ago,
such as  xxxx20070503 in perl?

Thanks,

michael