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;