Select Code to Download

#!/usr/bin/perl
use strict;
...
        print "$r - ", substr ($test, $first,$length),"\n";
    }
}

#!/usr/bin/perl
use strict;
...
    print ++$n." ($range[$n-1]): \"" ."$_","\"\n";
}