こちらの記事で紹介されているawkでの操作について、Perlではどう書けるかを確認したものです。http://qiita.com/b4b4r07/items/45d34a434f05aa896d69…