13 lines
225 B
Perl
13 lines
225 B
Perl
use 5.20.0;
|
|
|
|
my $compressed = <>;
|
|
chomp $compressed;
|
|
|
|
my $decompressed = '';
|
|
|
|
while( $compressed =~ s/^(.*?)\((\d+)x(\d+)\)// ) {
|
|
$decompressed .= $1 . ( substr $compressed, 0, $2, '' ) x $3;
|
|
}
|
|
|
|
say length $decompressed;
|