in reply to How does this regex not match?

Don't use regex, use index.
print "They Match\n" if index($orig, $want) >= 0;

[download]

In Section Seekers of Perl Wisdom