Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
       chomp;
    ...
    &foobar()
    foobar()
    &foobar("asdf")
    
  2. or download this
    foobar()
    foobar()
    foobar()
    foobar()"asdf")
    
  3. or download this
    while (<DATA>) {
       chomp;
       $_ =~ s/^(&)(\w+(\([\"\'\$\w]*\))?)(\(\))$/$2()/;
       print "$_\n";
    }
    
  4. or download this
    &foobar
    foobar()
    foobar()
    &foobar("asdf")