Select Code to Download

#!/usr/bin/env perl

...
           ? join('', splice @temp_array, $offset, $length)
           : join('', splice @temp_array, $offset);
}

1..4
ok 1 - Testing: [:3]
ok 2 - Testing: [:-3]
ok 3 - Testing: [3:]
ok 4 - Testing: [-3:]