hi this is not wat i wanted.
$indata =~ s/XYZATGC/XYZ/g; i dont knw what string will be there after ATGC. in a string like this XYZATGCCVFGBGVFCD... as soon as ATGC is found at a particular position it should trim the entire part (including ATGC and the rest that follows it and show only the string which is XYZ and write it to new file. am i clear now

here are some exammples
input

XYZATGCACGTGFVGFCCV.......
YZXCVFDCXZATGCXCCXZZSDD
output
XYZ new file1.txt
YZXCVFDCXZ new file2.txt