#!/usr/bin/perl# your code goes heremy $str = '112133';$str =~ s/(.)\1/$1/g;print $str;
Standard input is empty
1213
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!