___DATA___
#Pattern 1 - aaa <anything> bbb <anything> ccc <whitespaces> dddd
aaa
 xxxxxxx
 bbb
    ccc
dddd
-------------------------------------
# Pattern 2 - aaa <anything> bbb <anything> ccc <whitespaces> dddd
aaa
	xxxxxxxxxxxxxxxxxxxxx
	xxxxxxx
  bbb
	xxxxxxxxxxxxxxxxxxxxx
	xxxx
	xx
ccc
dddd

##</code><code>##

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