Perl使い居る？
こういうスクリプト作って欲しいんだよ

「同じフォルダにえろどファイルがたくさんある」
「えろどファイルは filename_連番.jpg などといった形式である」
「これらのファイルを ./filename/filename_連番.jpg と
  ファイル名のディレクトリを掘って分配する」

たのむよつくってよ
./えろど フォルダに5000ファイルくらい溜まってるんだよ…