正規表現をちょっと

Perlでちょっとだけ正規表現を使ってみました。

$_ = "higurashi no NAku koro ni";
if (/NA/) {
    print "$`<span style=\"color:red;\">$&</span>$'\n";
}

ちゃんとNAが赤くなります。ひぐらしのなく頃には怖くて夜には見れません。ひぐらしな怖い正規表現考えます、そのうち。

初めてのPerl