for (1,2,3) { }

s//test/;

print "$_\n";