$ perl
seq1='--TAGAGATTGCCCGTAGGACGGGAAGGTGTCAACGTTTTACATTTTGAAC-'
^Z
Can't modify constant item in scalar assignment at - line 1, at EOF
Execution of - aborted due to compilation errors.
[download]

I suggest you read perlintro, then RFC: Bioinformatics Tutorial