Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    (?:\:|\-|\,|\-\-|\.|\,)?/x};                

print YAPE::Regex::Explain->new($REx1)->explain;

if($data!~m/table\s?of\s?contents?|\sindex\spart\s(?:1|I)/i){