@filesa = split("\n", `ls -l ./AAAIfootage/done/`);
foreach (@filesa) {
    @bits = split(" ", $_);
    $size = $bits[4];
    $sizeinv = substr($size, -3, 3);
    $size =~ s/($sizeinv)//g;
    print "  [$size kB]  \n";
    }
