Help for this page
perl -i -p -e ' BEGIN { ... $sequenceLength = getc; } s/$/$sequenceLength/' seq.txt
$sequenceLength = <STDIN>; chomp($sequenceLength);