perl -le '$_="abc"."data" x 5;print;
print "position of first data : ",pos while  m/^.*?(?=data)/g;'

abcdatadatadatadatadata
position of first data : 3