my( $first_char, $rest)= (substr( $string, 0, 1), substr( $string, 1)); 
my( $last_char, $rest)= (substr( $string, -1), substr( $string, 0, -1));