嫌われてるとかじゃなくて、>>253にTime::Piece使うと、ちょっと面倒だからでしょ。
use 5.14.0;
use warnings;
use utf8;
use Time::Piece;

my $d = "2012/06/04(月) 23:12:46";
my $time = Time::Piece->strptime($d =~ s/\((?:月|火|水|木|金|土|日)\)//r, '%Y/%m/%d %T')->epoch;
say $time;