正規表現テスト用コード

同一行で複数マッチする場合にも対応するように改良したんだけど、きっともっと良い方法がある。
実用Perlプログラミングの最後の章を図書館で読んだんだけど、かなりわくわくした。頑張って、JAPHとかゴルフに参加できるくらいになりたいなとか大きな夢を抱いたわけです。がんばろう。（とりあえず言語への理解をもっと深めよう。

  1 #!/usr/bin/perl
  2 
  3 use strict;
  4 use warnings;
  5 
  6 my $ptn = shift @ARGV;
  7 
  8 while ( <> ){
  9     chomp;
 10     my $flg = 0;
 11     while ( /$ptn/g ){
 12         print "$` <$&> ";
 13         $_=$';
 14         $flg = 1;
 15     }
 16     print "$_\n" if ( $flg );
 17 }