>>253
257 も紹介しているが Time::Piece->strptime だけでできた。

$ perl -MTime::Piece -e '$d="2012/06/04(月) 23:12:46";print Time::Piece->strptime($d,"%Y/%m/%d(%a) %H:%M:%S")->epoch'
1338851566

# 曜日はちゃんと処理されないけど、今回は関係ない