perl -i -p -e '
BEGIN {
print "what length?\n";
$sequenceLength = getc;
}
s/$/$sequenceLength/' seq.txt