Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

while ("this_is_broken_" =~ /(.*?)_/gs) {
    print "($1) ";
}
  2. or download this
    #!/usr/bin/perl

while ("this_is_broken_" =~ /(.*?)_/g) {
    print "($1) ";
}