perl -pe 's/.*/$&." "x(76-$+[0])/e' <infile >outfile