$ perl -MO=Deparse -e 'index my $tring,$art'
index my $tring, $art;
-e syntax OK