Perlだと分かりやすいかと。
実現方法が身も蓋もない