Select Code to Download

#! perl
use strict;
...
            $-[$expr],
            $+[$expr];
}

print "Number of matches: $#-\n";