$str = "aaabcabcdebcaabebcb";
while($str =~ /(\w{3}bc\w{2})/g){
    print "$-[1],$+[1],$1\n";
    pos($str) = $-[1]+1;
}