FWIW, the second substr ... (for the last 6 characters) could be substr( $char, -6 ). Negative offsets are from the end, and if you omit the length you get all of the string after the start position.