$ use DateTime::Format::Strptime

$ DateTime::Format::Strptime->new(pattern => '%Y%m%d %H%M%S', time_zone => '+0200',)
$DateTime_Format_Strptime1 = DateTime::Format::Strptime=HASH(0x2ce6490);

$ DateTime::Format::Strptime->new(pattern => '%Y%m%d %H%M%S', time_zone => '+0200',)->parse_datetime('20110905 142631')
2011-09-05T14:26:31

$ DateTime::Format::Strptime->new(pattern => '%Y%m%d %H%M%S', time_zone => '+0200',)->parse_datetime('20110905 142631')->epoch
1315225591