# From: Schwartz & Phoenix: Learning Perl, 3rd Ed (The Llama), pp. 103

use strict;

while (<>) {
    chomp;
    if (/[en]/) {
	print "Matched: |$`<$&>$'|\n";
    } else {
	print "No match.\n";
    }
}