in reply to Regex style and efficiency

Here's one that doesn't use .*: 
$s =~ /anchor/p and $s = ${^MATCH} . ${^POSTMATCH};

[download]

In Section Seekers of Perl Wisdom