perl -le 'print scalar "12345678901234" =~ /((.{0,5}){0,5}){0,5}[\0]/'