正規表現のマッチングを確認するプログラム

#!/usr/bin/perl

while (<>) {
　chomp;
　if (/パターンを記述/) {　　　　　　　　　　# パターンを指定
　　print "Matched: |$`<$&>$'|\n";
　}
　else {
　　print "No match. \n";
　}
}

■使い方
　1. 「パターンを記述」の場所に、正規表現パターンを記述する
　2. 上記プログラムを実行する
　3. 文字列を入力し、「enter」キーを押下する
　4. パターンにマッチした部分が、<>で囲んで表示される