Help for this page

Select Code to Download

Select or download this

if ($searchtext =~ /^\/.*\/\w+$/) {
    $searchtext =~ s#^\s+/|/\s+$|/\w+\s+$#/#g;
} else {
...
}

foreach (sort {$a <=> $b} grep $searchtext, grep !/^#/, <STUFF>) {