簡単だよ。
4〜5行ぐらいで出来る。
perl勉強しなくても出来る。