やっと正規表現を勉強しだしたよ！

ついにPerlのメインともいえる正規表現に差しかかりましたよ！正規表現自体は平行してちょっとずつ勉強してたんだけど、「初めてのPerl」でその章に入ったという意味です。
で、テスト用のコードをちょこっと改良して、起動時にパターンも設定できるようにしてみました。（多分すでに多くの、実に多くの人がやっているであろうことですが。）
良いのです。自分向けのメモですから！

#!/usr/bin/perl

use strict;
use warnings;

#----------------------------------------#
# ./TestRegEx [パターン] [ファイル]      #
#----------------------------------------#
# 結果：マッチした部分が＜＞で囲まれる。 #
#----------------------------------------#

my $ptn = shift @ARGV;

while ( <> ){
    chomp;
    if ( /$ptn/ ){
        print "Matched : $`<$&>$'\n";
    }
    # print "Matched : $`<$&>$'\n" if /$ptn/;　の方がいいのかな？
}