08        my ( $first, $rest ) = $pattern =~ /^(.)(.*)/;