I think the POSIX::strptime module is what you're looking for. It has an strptime() function that acts as the inverse of strftime():

use POSIX::strptime;
use Time::Local;

my $result = timelocal strptime $d, '%a %b %e %H:%M:%S %Y';
[download]