Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
f("foo,bar");
f("foo,bar "); # should fail on this
f("foo, bar"); # should fail on this

Select or download this

$VAR1 = [
          'foo'
...
        ];
$VAR1 = [];
$VAR1 = [];