11 lines
108 B
Perl
11 lines
108 B
Perl
|
use 5.20.0;
|
||
|
|
|
||
|
|
my $s = <>;
|
||
|
|
chomp $s;
|
||
|
|
say $s;
|
||
|
|
|
||
|
|
$s =~ s/(.)\1*/ length($&) . $1 /eg for 1..50;
|
||
|
|
|
||
|
|
say length $s;
|
||
|
|
|