Help for this page
#!/usr/bin/env perl use strict; ... print "Matched '$substr' in '$line'\n" if index ($line, $subst +r) > -1; } }