cleanup path to pass use it in substr

See http://irclog.perlgeek.de/perl6/2013-11-25#i_7914075
Merge pull request #62 from FROGGS/patch-1

cleanup path to pass use it in substr