$ perl -e'my ($length, $string) = (42,"spdf" x 50); print substr($string, 0, $length, ""), $/ while $string;'
spdfspdfspdfspdfspdfspdfspdfspdfspdfspdfsp
dfspdfspdfspdfspdfspdfspdfspdfspdfspdfspdf
spdfspdfspdfspdfspdfspdfspdfspdfspdfspdfsp
dfspdfspdfspdfspdfspdfspdfspdfspdfspdfspdf
spdfspdfspdfspdfspdfspdfspdfspdf
$