Select Code to Download

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

$lines = "aaa
 xxxxxxx
 bbb
    ccc
dddd";

$lines = "
aaa
...
    xx
ccc
dddd";

$lines = "
aaa
...
dddd";

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