#!perl -p0/./;$"=".{@-}";s%0%s/\G0/2/r!~/2((.$")?2(.$")?|2$"|$"2)2/s*1%eg
0000000200 0002002000 0000000002 0220002200 0000000000
1111110211 1112112011 1001110012 0220102201 1001110011
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!