my ($new_string, $longest_string) = '';