use DateTime::Format::Strptime qw();
print DateTime::Format::Strptime
    ->new(
        locale => 'en',
        pattern => '%a %b %d %T %Y',
        on_error => 'croak',
    )->parse_datetime('Fri Jun 16 18:04:03 2012')
    ->strftime('%m %d %T %Y');
# '06 16 18:04:03 2012'