I'd suggest printing your serialized string before doing the regex (my ($num, $txt) = $serialized =~ /(\d+)(\w+)/;). It looks like the values are not what you think they should be. Checking whether the regex was successfully matched couldn't hurt either.