perl 部分の中身は
関数 mean_var は
mean 全部の行の全部の列の各値の平均値と
std 標準偏差 (各値の平均値との差の2乗の和の平方根) これは定義通り
dim 列の数
を返してるだけ
関数 normalize は上で求めた値の正規化 これもおそらく定義通り

なので python 用なら同様のモジュールがあるのでそれ使えば良い