#!/usr/local/bin/perl
use strict;
use Time::Local;

my $string = '2001/10/12:02:27:29';
my ($sec,$min,$hours,$mday,$mon,$year);

$string =~ m|(\d{4})/(\d{2})/(\d{2}):(\d{2}):(\d{2}):(\d{2})|;

$sec   = $6;
$min   = $5;
$hours = $4;
$mday  = $3;
$mon   = $2 - 1 ;
$year  = $1;

my $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
print scalar(localtime($time)),"\n";

__END__