My Perl Quiz

The ultimate place to learn Perl!

Question #20: What will be the value of $str after execution of the following code?

my $str = '112133';

$str =~ s/(.)\1/$1/g;