in reply to Re^2: p tag substitution
in thread p tag substitution

if ($code =~ /=~/ && $data =~ /<p>/) {
    print "Woe unto you!\n"
}

[download]
True laziness is hard work

In Section Seekers of Perl Wisdom