$a[12]="x"; $_="x"; s/$a[12]/y/; print "$_\n";$a[123]="x"; $_="x"; s/$a[123]/y/; print "$_\n";
Standard input is empty
y x
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!