RosettaCodeData/Task/Look-and-say-sequence/Perl/look-and-say-sequence-2.pl

for (local $_ = "1\n"; s/((.)\2*)//s;) {
	print $1;
	$_ .= ($1 ne "\n" and length($1)).$2
}