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")