#!/usr/bin/perl -l

use strict;
use warnings;
use Date::Parse;

my $date1 = <<"EOF";
Sat, 7 Jul 12 20:55:04 +0300
EOF
print str2time($date1);

my $date2 = <<"EOF";
Sat, 7 Jul 12 20:55:04 CET
EOF
print str2time($date2);