Help for this page

Select Code to Download

Select or download this

$str = "aaaaa\nbbbbb\nccccc\nddddd\naaaaa\nddddd\neeeee\n";
@a = $str =~ /(aaaaa(?:(?:(?!aaaaa).)*))/s;
print "1 : $a[0]\n 2 : $a[1]\n";

Select or download this

$str = "aaaaa\nbbbbb\nccccc\nddddd\naaaaa\nddddd\neeeee\n";
@a = $str =~ /(aaaaa(?:(?:(?!aaaaa).)*))/gs;
print "1 : $a[0]\n 2 : $a[1]\n";