print  $#{[$lines =~ /aaa(.*?)bbb(.*?)ccc\s*dddd/gsi]} + 1 . "\n";