Select Code to Download

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