Help for this page

Select Code to Download


  1. or download this
    $str = "aa\nbb\ncc\naa\ndd\nee\n";
@a = ($str =~ /aa\n.*\n.*/g);
print "1 = $a[0]\n2 = $a[1]\n";
  2. or download this
    $str = "aa\nbb\ncc\naa\ndd\nee\n";
@a = ($str =~ /(aa.*).?(aa.*)/gs);
print "1 = $a[0]\n2 = $a[1]\n";