$ perl readingframe.pl
Enter file name
t.txt
Enter output file name
o.txt
string is MHGRRRRRRRRRRRRRRRRRRRRRRRRRRRRRD_MHGRRRRRRRRRRRRRRRRRRRRRRRRRRRRRD_
Use of uninitialized value $1 in concatenation (.) or string at readingframe.pl line 68, <> line 2.

motif is 1
length of motif is 1
string is CMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVTECMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVT
string is AWPPPPPPPPPPPPPPPPPPPPPPPPPPPPP_LNAWPPPPPPPPPPPPPPPPPPPPPPPPPPPPP_L