$string = "foo" x 3 . "fo";
print join(" -- ", unpack "(A3)*", $string), "\n";