use Date::Parse;
use POSIX;

my $time = str2time("26/Aug/2005:01:05:43 -0400");
print POSIX::strftime("%Y%m%d%H%M%SZ", gmtime($time)), "\n";