Select Code to Download

s{^[.](?=/root(?:/|$))}{}

#!/usr/bin/env perl

...
    $file =~ s{^[.](?=/root(?:/|$))}{};
    is $file, $test->[1];
}

1..7
ok 1
...
ok 5
ok 6
ok 7