Re: A little bash/perl programming help?

#!/bin/bash
header="12345678901234567890123456789012345678901234567890123456789012345678901234567890"
while read line
do
while [ ${#line} -gt 0 ]
do
part=${line:0:80}
partlength=${#part}
parthead=${header:0:$partlength}
echo $parthead
echo "$part"
line=${line:80}
done
done
.