use Date::Calc; my $item_time = Date::Calc::Mktime ( $mysql_timestamp =~ /^(\d\d\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)$/ ); print time2str('%a, %d %b %Y %H:%m:%S GMT', $item_time), "\n";